Es kommt folgende
Exception:
Zitat:
TStringlist kann nicht zu TListItems zugeordnet werden.
Mal etwas mehr Code dieser Prozedur:
Delphi-Quellcode:
begin
LS := TStringList.Create;
try
begin
form2.server.Items.Clear;
form2.ftp.List(LS);
form2.server.Items.Assign(LS);
if form2.server.Items.Count > 0 then
begin
if
AnsiPos('total', form2.server.Items[0].Caption) > 0 then
begin
form2.server.Items.Delete(0);
end;
MfG