Hi,
wenn du deinen Text in einem Memo stehen hast und die Namen der Mitspieler in einer ListBox sehen möchtest, dann könntest du so vorgehen:
Delphi-Quellcode:
procedure ExtractNames(slIn, slOut: TStrings);
var
i: Integer;
begin
slOut.BeginUpdate;
try
slOut.Clear;
for i := 0 to Pred(slIn.Count) do
slOut.Add(Between(slIn[i], 'mit ', ' Fußball'));
finally
slOut.EndUpdate;
end;
end;
// Testen mit: ExtractNames(Memo.Lines, ListBox.Items);
Freundliche Grüße