Zitat von
DeddyH:
Zitat:
Delphi-Quellcode:
for i := Memo1.Lines.Count - 1 downto 0 do
if AnsiPos('ErrorCode', Memo1.Lines.Strings[i]) > 0 then
begin
Memo1.text := Memo1.Lines.Strings[i + 1];
Abgesehen davon, dass Du u.U. auf eine nicht existente Zeile zugreifst, ersetzt Du hier den ganzen Text des Memos mit der einen Zeile.
Das war doch eigentlich deutlich!?
oder nicht??
Gruß
K-H