Ich hatte ja schon die procedure Trennung erstellt mit der ich eigentlich arbeiten wollte.
Wenn ich also Zeile für Zeile abarbeiten will, muss ich also immer das, entsprechend der Frage und Antwort, wiederholen?
Delphi-Quellcode:
begin
(* Position des Trennzeichens ermitteln *)
iPos := Pos(TRENNER, FRAGE_ANTWORT);
(* Wenn gefunden *)
if iPos > 0 then
begin
(* Von Stringanfang bis ausschließlich Trennzeichen kopieren *)
Frage := Copy(FRAGE_ANTWORT, 1, iPos - 1);
(* Nun alles hinter dem Trennzeichen *)
Antwort := Copy(FRAGE_ANTWORT, iPos + 1);
ShowMessage('Frage: ' + Frage + sLineBreak + 'Antwort: ' + Antwort);