Okay, ich bin langsam ein wenig in Delphi drin. Folgendermaßen sieht das grad bei mir aus (erstmal nur für den ersten gesuchten Wert)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var datei: textfile;
puffer: string;
anfang: integer;
ende: integer;
begin
assignfile(datei,'D:/zug.txt');
reset(datei);
readln(datei, puffer);
anfang:= pos('Status:', Puffer);
ende := pos('||', Puffer) + 8;
Memo1.Lines.Add(copy(Puffer, anfang, ende - anfang + 1));
delete(Puffer, 1, ende);
closefile(datei);
end;
Statt das Delphi mir "Mission 1" anzeigt, wie gewollt kommen lediglich die ersten 9 Zeichen aus der ersten Zeile in das Memofeld (
-[o]- ---). Bekommte das trotz unzähliger Versuche nicht weg.
Gruß