Dieses Programm gibt den eingegeben String rückwärts aus:
[code:1]
procedure TfmEdStr1.btnAusfuehrungClick(Sender: TObject);
var EinText, AusText: string;
k, laenge: integer;
begin
EinText:=edtEingabe.Text;
AusText:=EinText;
laenge:=length(EinText);
for k:=1 to laenge do
AusText[k]:=EinText[laenge-k+1];
edtAusgabe.Text:=AusText;
end;
[/code:1]
[code:1]
procedure TfmEdStr1.btnAusfuehrungClick(Sender: TObject);
var EinText, AusText: string;
k, laenge: integer;
begin
EinText:=edtEingabe.Text;
AusText:=EinText;
laenge:=length(EinText);
for k:=1 to laenge do
AusText[k]:=EinText[laenge-k+1];
edtAusgabe.Text:=AusText;
end;
[/code:1]
mfg KC