Var in einer Funktion über ein Button aufrufen !

[Klaus01]

.. noch ein Vorschlag:

Delphi-Quellcode:

function TForm1.serial(userId: byte): string;
var:
 s : array[0..3] of strings;
Begin
  s[0]:='blabla';
  s[1]:=s0+ 'abc'; // diesen wert möchte ich nehmen
...
// die Funktion geht weiter
...
  Result:= s[userId];

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.text = serial(1) then
    begin

Grüße
Klaus