Hallo
Ich versuche ein paar strings von der gefundene stelle rückwaärts zu gehen
warum geht das nciht?
könnte mir da mal bitte jemand helfen?
Delphi-Quellcode:
procedure TFMain.Datei_durchsuchen;
var
zaehlen, top, j, i, found:integer;
Shandling, Suser_time, Scode_letter, Sreturn_code: string;
begin
found := 0;
zaehlen := 1;
top := 60;
for I := 0 to my_file.Count - 1 do
begin
// Jede Zeile nach dem Benutzernamen durchsuchen
found := Pos('java.lang.String userName="'+EUsername.Text+'",', my_file.Strings[I]);
if found <> 0 then
begin
Suser_time := my_file.Strings[found - 32]; //<--- hier "LISTENINDEX ÜBERSCHREITET DAS MAXIMUM (-31)"
for J := 0 to 19 do Suser_time := Suser_time + Suser_time[J];
Ldatum_out[zaehlen].Caption := Suser_time;
Ldatum_out[zaehlen].Top := top;
Ldatum_out[zaehlen].Width := Ldatum.Width;
Ldatum_out[zaehlen].left := Ldatum.left;
end;
top := top + 40;
zaehlen := zaehlen + 1;
end;
end;
es ist von der datei her so das sie bei [2] mit einträgen anfängt
[0] und [1] sind leer
und der gefundene eintrag (nach dem ich suchen muss) ist immer bei [34]
Tigermoon