die lösung war
eine andere art von suche benutzen
nd zwar my_file.indexof(..)
dann kann man vorwärts und rückwarts
Delphi-Quellcode:
procedure TFMain.Datei_durchsuchen;
var
zaehlen, top, j, i, found:integer;
Shandling, Suser_time, Scode_letter, Sreturn_code, temp: string;
begin
found := 0;
zaehlen := 1;
top := 60;
while zaehlen <= 1 do
begin
// Zeilen nach dem Benutzernamen durchsuchen
found := my_file.IndexOf('java.lang.String userName="'+EUsername.Text+'",');
if found <> 0 then
begin
Temp := my_file.Strings[found - 32];
for J := 1 to 19 do Suser_time := Suser_time + Temp[J];
Ldatum_out[zaehlen].Caption := Suser_time;
Ldatum_out[zaehlen].Top := top;
Ldatum_out[zaehlen].Width := 130;
Ldatum_out[zaehlen].left := Ldatum.left;
end;
top := top + 40;
zaehlen := zaehlen + 1;
end;
end;
danke für euere hilfe
Tigermoon