Var in einer Funktion über ein Button aufrufen !

[Matze]

Zitat von Delphiturbo:

So hast du die Variable deklariert und wird damit keine Fehlermeldung beim Kompilieren
angezeigt.
Das Programm nehmt das String s1 = ' ' !!!
Ich bekomme ein Ergebnis als S1:=' nichts drin ';

Bitte was?

[DeddyH]

Was willst Du eigentlich bezwecken? Und wenn Du die Variable bereits unter private deklarierst, darfst Du sie innerhalb der Funktion nicht erneut deklarieren.

[Delphiturbo]

Ich möchte wenn ich auf das Button anklicke, dann soll die Funktion "Serial" aufgerufen und danach den Wert von dem String S1 in der Funktion angenommen wereden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text = serial(s1) then // s1 ist in der Funktion gespeichert

[DeddyH]

Ich steig da nicht durch. Poste doch mal den kompletten relevanten Code, dann wird mir das vielleicht klarer.

[Phoenix]

Häh?

Wenn Du S1 schon als Variable im Formular hast, warum übergibst Du sie dann nochmal an die Funktion? Das macht doch keinen Sinn?

Was macht die Funktion überhaupt? Was willst Du damit denn überhaupt bezwecken?

[DeddyH]

Das hab ich auch schon 2 mal gefragt.

[mkinzler]

Das scheint aber sein Geheimnis zu sein

[Butch87]

ich hoffe, du meinst das so...

Delphi-Quellcode:

procedure buttonclick(sender: TObject)
var Bla: String;
begin
  .
  Serial(Bla);
  .
  .
//  in bla steht nun 'Test, eins zwo...'
end;

procedure serial(var Test: String);
begin
  Test:= 'Test, eins zwo...'
  .
  .
  .
end;

[Delphiturbo]

ich habe z.B.folgendes

Delphi-Quellcode:

function serial(user: string): string;
var:
s0, s1, s2, s3, ...: string;
... 
Begin
s0:='blabla';
s1:=s0+ 'abc'; // diesen wert möchte ich nehmen
...
// die Funktion geht weiter
...
Result:= ...

Delphi-Quellcode:

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

wie kann ich über das Button den Wert von S1 holen ?

Natürlich ist das Geheimnis ! Funktion-Name sagt was oder ?

[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]