steve hat vorgeschlagen, eine function zu machen, die einen string zurückgibt. in deinem fall schreibst du dann TauscheString('Test') und du bekommst einen string zurück, das könnte dann so in etwa aussehen:
Delphi-Quellcode:
function TauscheString(const Text: String): String;
var i,zahl:integer;
e1, zwerg, ausgabe:string;
begin
ausgabe := '';
e1 := Text;
zahl := length(e1);
for i := zahl downto 1 do
begin
zwerg := e1[i];
ausgabe := ausgabe + zwerg;
end;
Result := ausgabe;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := TauscheString('Test');
end;
eine procedure zu verwenden, ist in diesem fall eher ungünstig, da du durch die funktion gleich den umgekehrten string zurückbekommst, mit einer procedure müsstest du jetzt das ergebnis noch in einer variable speichern, ....