zeichen durchlaufen und bestimmte Zeichenfolge finden

[Luckie]

So:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  Loop: Integer;
begin
  s := Edit1.Text;
  for Loop := 1 to length(s) do
  begin
    if (s[Loop] in [#48..#57]) then
      s[Loop] := '_';
  end;
  Edit1.Text := s;
end;

Hier wird jede Ziffer durch ein '_' ersetzt. Solltest du auf einen Zeilenumbruch: #13#10 anpassen können.