Moin,
ich weiß ich habe dazu schon mal ne ähnliche Frage gestellt, aber ich bekomme das mit pos einfach nicht gebacken. Ich habe vor die Datei die im Anhang liegt auszuwerten. Das Programm soll also z.B. nach ³4> in der Datei suchen, dieses steht hinter einem | . Die Datei wird bisher in eine StringListe geladen, aber mit find funktioniert da auch nichts.
Delphi-Quellcode:
procedure TForm1.Oeffnen;
var
tbl_1 : TStringList;
I : Integer;
begin
tbl_1 := TStringList.Create;
tbl_1.Clear;
tbl_1.Delimiter := '|';
if OpenDialog1.Execute then
if not fileexists(OpenDialog1.FileName) then
Exit else
begin
ListBox1.Clear;
tbl_1.LoadFromFile(OpenDialog1.FileName);
if tbl_1.Find('18' , I) then
ListBox1.Items.Add('GEFUNDEN !!!');
end;
end;
Greetz
Dash