hab mal wieder ein kleines Problem hier was mich verückt macht:
Folgendes,ich habe ein "FileNameEdit1" und ein "DirectoryEdit1" ,die Dateien die dort geladen werden,sollen in einer ListBox aufgelistet werden!
Nun bei dem "FileNameEdit" funktioniert das ja schon ansatzweise(naja fast) mit diesem Befehl hier:
Code: Alles auswählen
procedure TForm1.FileNameEdit1Change(Sender: TObject);
begin
if FileNameEdit1.FileName<>'' then ListBox1.Items.LoadFromFile(FileNameEdit1.Text);
FileNameEdit1.Text := '';
end;
wird zwar eine Datei in die ListBox geladen aber sehr Kryptisch würd ich mal sagen!Das da überhaupt was geladen wird freut mich ja schon!
Mein Problem besteht eher bei der "DirectoryEdit":wenn ich dort den Befehl:
Code: Alles auswählen
procedure TForm1.DirectoryEdit1Change(Sender: TObject);
begin
if DirectoryEdit1.Directory<>'' then ListBox1.Items.LoadFromFile(DirectoryEdit1.Text);
DirectoryEdit1.Text := '';
end;
ausführe passiert überhaut nix?
Ich weiß auch nicht genau ob ich mein System(Linux/Ubuntu 9.10)noch bei den uses einbinden muss(unter Windows muss man ja die Shell API einbinden,zumindest für Drag&Drop,hab ich gelesen aber das is ne andere Geschichte;))
Vieleicht kann mir einer von euch sagen was ich da mal wieder falsch mache?
lg