|
Registriert seit: 10. Jan 2005
Ort: Bönen
1.164 Beiträge
Delphi 11 Alexandria
|
Re: String Buchstaben wegstreichen
13. Sep 2008, 14:48
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;
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
|