Hallo,
das ShowMessage Fenster schließt nicht richtig,
es geht kurz zu aber dann sofort wieder auf?
Was mache ich hier falsch?
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var
i : integer;
s, d: String;
begin
i := 0;
while i < fileListBox1.Items.count do begin
Memo2.Lines.LoadFromFile(fileListBox1.FileName);
s := Memo2.Lines.Text; //Beinhaltet z. B.: TEXT TEXT TEXT TEXT TEXT **ID 999
d := '**';
Delete(s, 1, Pos(d, s) - 1 + Length(d));
while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1); //evtl. Zeilenumbruch ...
while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1); //entfernen
s := Trim(s);
ShowMessage(s); //Ergebnis ist: ID 999
end;
end;