Hallo
ich raffe das hier ned
ich bekomme immer den fehler bei dem <--- hier
er sagt er kann auf eine adresse nicht zugreifen
das macht er aber erst seit dem die abfrage drin ist
hat jemand von euch eine idee as da falsch ist
Ich lese eine datei ein
auf die ich dann die abfrage mache
und dann eine bestimmte zeile auslesen
Delphi-Quellcode:
var
FMain: TFMain;
my_File: TStringList;
LDatum_out, LHandling_out, Lcodeletter_out, Lreturncode_out: array[1..10] of TLabel;
Sauswahl: array[1..10] of TImage;
file_used: boolean;
// Ausgabe Strings
Shandling, Suser_time, Scode_letter, Sreturn_code, sfehler: string;
found:integer;
implementation
Delphi-Quellcode:
procedure TFMain.Datei_durchsuchen;
var
zaehlen, top, j,i,ende:integer;
temp, temp1, temp2: string;
go: boolean;
begin
zaehlen := 1;
top := 60;
go:= false;
for i := 1 to my_file.Count -1 do
begin
//Abfrage auf richtige ziele
temp := my_file.Strings[i];
for J := 1 to length(temp) do temp1 := temp1 + Temp[J];
if temp1 = 'java.lang.String userName="'+EUsername.Text+'",' then
begin
// Zeile des Benutzernamen merken
found := my_file.IndexOf(my_file.Strings[i]);
// auf Handling zeil prüfen
Temp := my_file.Strings[found - 3];
for J := 1 to 36 do temp2 := temp2 + Temp[J];
if temp2 = '(userHandling) userHandlingImpl.java' then
begin
go := true;
end;
end;
temp1 := '';
temp2 := '';
// verarbeitung der zeile
if go then
begin
// Zeit eintragen
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; <--- hier
Ldatum_out[zaehlen].Width := 130;
Ldatum_out[zaehlen].left := Ldatum.left;
go := false;
end;
top := top + 40;
zaehlen := zaehlen + 1;
Shandling := '';
Suser_time := '';
Scode_letter:= '';
Sreturn_code := '';
end;
end;
Tigermoon