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

[Delphiturbo]

Zitat:

Zitat von DeddyH

Obwohl ich das persönlich für Quatsch halte: Du hast die Variable ja bereits im private-Abschnitt deklariert. Wenn Du sie innerhalb der Funktion erneut deklarierst, sind das 2 verschiedene Variablen! Also aus der Funktionsdeklaration wieder rausnehmen.

[edit] Achja, und function serial muss dann als Methode des Formulars deklariert werden (function TForm1.serial). [/edit]

Stimmt. Das war das Problem, 2 mal deklariert als lokal und als global
jetzt geht. Danke!