fehler bei delete, seltsame compilermeldung

[Andreas L.]

Zitat von Hawkeye219:

Ok, 'ne Q&D-Lösung wäre

Delphi-Quellcode:

s := temp[i];
Delete(s, 1, pos('@', s));
temp[i] := s;

s einfach als String-Variable deklarieren.

Gruß Hawkeye

Hurra es compiliert... Leider bekomm ich beim Aufrufen der Funktion einen AbstactError. Hier mal der Aufruf plus Funktion:

Delphi-Quellcode:

function IEListAllCookieNames:TStrings;
var
 temp: TStrings;
 s: String;
 i: integer;
begin
 temp:=TStrings.Create;
 FindAllFiles(temp, IECookiePath, '*.txt', true);
 for i:=0 to temp.Count-1 do
  begin
   s:=temp.strings[i];
   Delete(s,0 , pos(temp.strings[i],'@'));
   temp.Strings[i]:=s;
  end;
 Result:=temp; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Listbox1.Clear;
 Listbox1.Items:=IEListAllCookieNames;
end;

EDIT: Der Cursor bleibt hinter den Funktionsaufruf stehen...