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...