procedure gestaltung ?

[Phoenix]

Delphi-Quellcode:

procedure TForm1.Button1Click(sender: TObject);
var
   String1, String2, Text : string;
begin
   Text := Button1.Caption; // oder was für ein Text auch immer
   Teilen(Text, String1, String2);

   ShowMessage(String1);  // in string1 liegt nun die Ausgabe von Output1
   ShowMessage(String2);  // in String2 liegt die Ausgabe von Output2
end;

procedure Teilen(input:string; var output1, output2: string);
begin
  ...
  output1 := 'xyz'; // eine Hälfte von Text
  output2 := '123'; // andere Hälfte von Text
end;

Du übergibst also einen festen Werte an die Prozedur zum Teilen, sondern Du reichst variablen weiter, in die dann der neue Wert geschrieben wird. Das sind output1 und output2.