Forum: Netzwerke
Delphi
by Die Muhkuh,
27. Okt 2005
Hi,
ich hab doch geschrieben, dass du die < und > dort entfernen musst ;) . Also:
function IsFile(const Filename : String) : Boolean;
var
IsFile: Boolean;
begin
if FileExists(Filename) then
begin
Forum: Netzwerke
Delphi
by Die Muhkuh,
27. Okt 2005
Hi,
erstmal musst du bei deiner Funktion "IsFile" diese zwei < und > entfernen ;) Diese waren nur dafür gedacht, dass du später dort deinen Dateinamen reinsetzten sollst.
Und die Procedure "Listbox1DblClick" müsste so heißen:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if Listbox1.ItemIndex <> - 1 then
begin
Forum: Netzwerke
Delphi
by Die Muhkuh,
26. Okt 2005
Hmm,
ich würde ganz spontan sagen:
if FileExists(<Filename>) then
begin
isFile := true;
end
else
begin
Forum: Netzwerke
Delphi
by Die Muhkuh,
25. Okt 2005
Hi,
Code
if Listbox1.ItemIndex <> - 1 then
begin
if SaveDialog1.Execute then
begin
IDFTP1.Get(ListBox1.Items, SaveDialog1.Filename);
end;