Einzelnen Beitrag anzeigen

ferby

Registriert seit: 15. Aug 2004
Ort: Wien
841 Beiträge
 
Delphi 2010 Enterprise
 
#1

Fehler mit eigener Procedure

  Alt 18. Okt 2004, 15:25
Hi,

Mir ist leider kein besserer Titel eingefallen...

Also zu meinen Problem, ich habe eine eigene procedure geschrieben:

Delphi-Quellcode:
procedure quicksort (var l,r:integer);
var
i,j,p:integer;
begin

  i:=l;
  j:=r;

  if j>i then
  begin
    p:=eingabe[(j+1) div 2];
    repeat
      while eingabe[i]<p do inc(i);
      while eingabe[j]>p do dec(j);

      if i<=j then
      begin
        tausche (eingabe[i],eingabe[j]);
        inc(i);
        dec(j);
      end;

    until i>j;
  end;

  if j>l then quicksort(l,j);
  if i<r then quicksort(l,r);

end;
die ich jetzt mit

quicksort(1,10); aufzurufen.

eingabe ist global mit eingabe:array [1..10] of integer; definiert.

Also wenn ich jetzt das programm starte springt delphi zu quicksort(1,10); und die Fehlermeldung kommt:

[Fehler] Unit1.pas(135): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

ich weiß leider nicht was ich mit dieser Fehlermeldung machen soll.

Kann mir wer helfen???
  Mit Zitat antworten Zitat