procedure tauschen

[Steve]

Hi,

wenn's keine Funktion sein darf, warum auch immer , dann kannste nen VAR-Parameter übergeben:

Delphi-Quellcode:

procedure TauscheString(VAR aText: String);
var 
  i     : integer;
  dummy : string;
begin
  dummy := '';
  for i := length(aText) downto 1 do
  begin
     dummy := dummy + aText[i];
  end;
  aText := dummy;
end;

{ Beispiel }
procedure TForm1.Button1Click(Sender: TObject);
VAR
  txt : String;
begin
  txt := 'Test';
  Label1.Caption := 'Vorher: '  + txt;  // 'Test'
  TauscheString(txt);
  Label2.Caption := 'Nachher: ' + txt;  // 'tseT'
end;


//edit:
// Soll der ursprüngliche Wert erhalten bleiben, übergib ihn (z.B. CONST) und deklarier das Ergebnis als OUT:
PROCEDURE TauscheString2(CONST aInString: STRING; OUT aOutString: STRING);

Gruß
Stephan