Procedur Aufruf

[Murcielago82]

Moin Moin,
ich will eine Procedur aufrufen aber irgendwie habe ich immer einen Fehler weiss aber nicht warum. Komisch das ich andere Proceduren ohne Probleme genau so aufrufen kann. Weiss einer Rat??

Delphi-Quellcode:

begin
  Zähler:=0;
  starti:=0;
  startj:=0;
  for i:=0 to n-1 do
    begin
    for j:=0 to n-1 do
      begin
        EigenschaftenGrid[i,j].wert:='0';      
        StringGrid1.Cells[j,i] := '';
        EigenschaftenGrid[i,j].vorgegeben:= 0;
      end;
    end;
  generieren();
end;

hier die procedur:

Delphi-Quellcode:

procedure generieren();
VAR EZahl: integer;
geprüft:boolean;
begin
  Randomize;
  verlauf_füllen();
  Repeat
    wähle_zelle(zähler);          // starti u start j sind nun gefüllt!
    EZahl:= random(9)+1;          // EIne Zahl zwischen 1 und 9!
    geprüft:= false;
    geprüft:= check_zeile(starti,EZahl);
    if geprüft= true then
      generieren();          // evtl exit!
    geprüft:= check_spalte(startj,EZahl);
    if geprüft= true then
      generieren();
    geprüft:= check_3x3(EZahl,starti,startj);
    if geprüft= true then
      generieren();
    if geprüft= false then
      begin
      EigenschaftenGrid[starti,startj].wert:= inttostr(EZahl);
      inc(zähler);
      end;
  until Zähler = 82;
end;

[mkinzler]

Wie ist die Funktion erstellen definiert?

[Edit: Heißt die Funktion jetzt erstellen oder gereieren?]

[inherited]

selbst wenn sie 'generieren' heisst, kannst du, so wie sie definiert ist, nichts übergeben, was du aber tust

[Murcielago82]

Sie heisst generieren
Warum kann ich sie so nicht übergeben?

[mkinzler]

Zitat:

Warum kann ich sie so nicht übergeben?

Du hast die Funktion parameterlos definiert, rufst sie aber mit einem auf.

[Murcielago82]

aber ich rufe sie doch mit:
generieren() auf also ohne parameter.

[mkinzler]

Vohin aber nicht, da hast du sie mit einem TStringGrid aufgerufen.

[mkinzler]

Außerdem, rufst du diech mehrmals selber auf ohne abzubrechen.

[Murcielago82]

Ja habe alles mal versucht. Allerdings verstehe ich immer noch nicht wo da ein Semikolon fehlt.

auch wenn ich sie mit:
generieren(zähler,starti,startj); und den procedurkopf in:
procedure generieren(zähler,starti,startj:integer); änder bleibt immer noch der gleiche fehler. Auch wenn ich die Selbstaufrufe wegnehme in der P. immer noch die gleiche Fehlermeldung.

[mkinzler]

Vielleicht liegt der fehler auch hier:

Zitat:

EigenschaftenGrid[i,j].vorgegeben:= 0;

Existiert hier wirklich eine Eigenschaft .vorgegeben?