Hälfte eines Strings ausgeben

[Sir Rufo]

Ok, dann hier noch Lektion2:

Globale Parameter für Prozeduren sind auch nicht schick.

Was du willst, ist ja übergebenen Text (string) wieder halbiert zurückbekommen (string).
Da bietet sich sowieso eine Funktion besser an.

Delphi-Quellcode:

function HalbierenStr( Str : string ) : string;
begin
  // Die Variable Result ist vordefiniert für den Rückgabewert einer Funktion
  Result := Copy( Str, 1, Length( Str ) DIV 2 );
end;

Der Aufruf der Funktion erfolgt dann wie folgt:

Delphi-Quellcode:

procedure TProzeduren.halbieren_buttonClick(Sender: TObject); 
begin 
  ausgabe1_label.Caption := HalbierenStr( text1_edit.Text ); 
end;

cu

Oliver