Habe die ganze Anweisung jetzt nochmal angepaßt und mal Variablen dazwischen geschaltet. Immer noch genau dasselbe. Arbeite ich mit Breakpoint, wird eingetragen arbeite ich ohne also wie der Kunde muss, wird nicht eingetrage.
In meinen Variablen werden die Daten wunderbar eingetrage.
Delphi-Quellcode:
procedure TForm1.TreeViewResult(ParserTreeView: TMyBaseParser);
var
i: Integer;
Temp1 : String;
Temp2 : String;
Temp3 : String;
Temp4 : String;
Temp5 : String;
Temp6 : String;
begin
for i := 0 to High(ParserTreeView.Entries) do
begin
Temp1 := ParserTreeView.Entries[0].LfdNr;
Temp2 := ParserTreeView.Entries[0].Datum;
Temp3 := ParserTreeView.Entries[0].Uhrzeit;
Temp4 := ParserTreeView.Entries[0].Ereignis;
Temp5 := ParserTreeView.Entries[0].Teilnehmer;
Temp6 := ParserTreeView.Entries[0].Bereich;
RCount := RCount+1;
SGMB256plus.RowCount := RCount+1;
SGMB256plus.Cells[0, RCount] := Temp1;
SGMB256plus.Cells[1, RCount] := Temp2;
SGMB256plus.Cells[2, RCount] := Temp3;
SGMB256plus.Cells[3, RCount] := Temp4;
SGMB256plus.Cells[4, RCount] := Temp5;
SGMB256plus.Cells[5, RCount + 1] := Temp6;
end;
end;
Hat noch jemand eine Idee wie ich das Problem in den Griff bekomme???
Im Anhang habe ich noch einmal einen Screenshot, die Maus zeigt auf meinen Record und Links bei Überwachte Ausdrücke sieht man, das auch die Variablen den Wert angenommen haben.