Thema
:
Text Reverse
Einzelnen Beitrag anzeigen
Rastaman
Registriert seit: 6. Jan 2005
Ort: Lübbecke
575 Beiträge
Turbo C++
#
16
Re: Text Reverse
2. Feb 2005, 15:12
markieren
Code:
procedure TForm1.txtEingabeChange(Sender: TObject);
var
s, s2, s3, s4: String;
sl: TStringList;
i, x:Integer;
begin
s := txtEingabe.Text;
try
For i:=0 to Length(s) do
s2 := s2 + s[Length(s) - i];
If chkKeep.Checked = False then
txtAusgabe.Text := s2
else begin
sl := TStringList.Create;
sl.Delimiter := ' ';
sl.DelimitedText := s2;
For x:=1 to sl.Count do begin
s3 := sl.Strings[sl.count - x];
s4 := s4 + s3 + ' ';
end;
txtAusGabe.Text := s4;
s4 := '';
end;
If chkCopy.Checked = True then
Clipboard.AsText := txtAusgabe.Text;
except
txtAusgabe.Text := '';
end;
end;
Zitat
Rastaman
Öffentliches Profil ansehen
Mehr Beiträge von Rastaman finden