Zahlen in Memo ermitteln und in Int umwandeln

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Merchator.

Mit diesem Trick kommst du an die beiden Zahlen in einem String - egal ob es sich dabei um eine Zeile aus einem Memo oder ein Item aus einer ListBox handelt:

Delphi-Quellcode:

procedure ExtractLastWords(const line: string; s: TStrings; n: Word);
begin
  s.BeginUpdate;
  s.Clear;
  s.CommaText := line;
  while s.Count > n do
    s.Delete(0);
  s.EndUpdate;
end;

Testen kannst du es so:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  i: Integer;
  s: TStrings;
begin
  s := TStringList.Create;
  with Memo do
    for i := 0 to Pred(Lines.Count) do
    begin
      ExtractLastWords(Lines[i], s, 2);
      ShowMessage(Format('x = %d, y = %d', [StrToInt(s[0]), StrToInt(s[1])]));
    end;
  s.Free;
end;

Freundliche Grüße vom marabu