String Buchstaben wegstreichen

[Helmi]

Zitat von juergen:

Hallo zusammen,

ich wollte auch noch StringReplace() in die Runde werfen

Delphi-Quellcode:

var i: integer;
s : string;
begin
  if Length(Edit.Text) > 2 then
    begin
      for i := 1 to 3 do
      begin
      s := Edit.Text;
      Edit.Text := StringReplace(s, (s[1]), '', []);
      end;
    end;
end;

Aber dieser Code ist langsamer als delete - denn du hast zwei Schleifen.
Einmal die for-Schleife und dann verwendet StringReplace auch eine Schleife...