32-stellige zahlen aus txt oder memo auslesen

[DeddyH]

Willkommen in der DP.

Hab mal schnell was zurechtgeschustert, das kann man sicher noch optimieren.

Delphi-Quellcode:

procedure FilterZahlen(ein,aus: TStrings);
var i,j: integer;
    passt: Boolean;
    zeile: string;
begin
  aus.BeginUpdate;
  aus.Clear;
  for i := 0 to ein.Count - 1 do
    begin
      zeile := trim(ein[i]);
      passt := Length(zeile) = 32;
      if passt then
        for j := 1 to Length(zeile) do
          if not (zeile[j] in ['0'..'9']) then
            begin
              passt := false;
              break;
            end;
      if passt then
        aus.Add(zeile);
    end;
  aus.EndUpdate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FilterZahlen(Memo1.Lines,Memo2.Lines);
end;