Einzelnen Beitrag anzeigen

Drome

Registriert seit: 2. Nov 2007
16 Beiträge
 
#9

Re: StringList nach bestimmten Inhalt durchsuchen und ausgeb

  Alt 3. Mär 2008, 14:29
OK, mit der oben genannten Lösung klappt es auf C:, aber irgendwie will er keine Dateien von meiner Festplatte D: in die StringList laden.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
slist: TStringList;
s: String;
begin
slist := TStringList.Create;
slist.LoadFromFile('D:\Test.txt');
s:=slist.Text;
delete(s, 1, pos('Hihoo', s) + length('Hihoo') - 1);
    Edit1.Text := copy(s, 1, pos('Vase', s) - 1);
slist.SaveToFile('D:\result.txt.txt');
slist.Free;
end;
Was mache ich falsch? ( Die Textdatei result.txt und das Editfeld 1 bleiben leer )
  Mit Zitat antworten Zitat