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
Kaum macht man's richtig - schon funktioniert's
![Mr. Green](images/smilies/icon_mrgreen.gif)
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)