Procedure, Array als Rückgabewert?

[Hallo_Thomas]

Ich habe folgende Procedure geschrieben

Delphi-Quellcode:

procedure EinWert(aWert: array of Integer; aStart,aEnd:Integer ;Var Wert:array of Integer);

So sollte eigentlich der Übergabebefehl aussehen, stellte ich mir vor.

Delphi-Quellcode:

EinWert(Wert,0,1418)

Fehlermeldung, nicht genügend Parameter


Mit:

Delphi-Quellcode:

Var Wert:array of Integer

wollte ich eigentlich ein Rückgabeparameter schreiben.

Was mache ich hier verkehrt?

[Bernhard Geyer]

Du hast in

Delphi-Quellcode:

procedure EinWert(aWert: array of Integer; aStart,aEnd:Integer ;Var Wert:array of Integer);

4 Parameter definiert und versuchst die Funktion mit 3 Parametern aufzurufen.

[Hallo_Thomas]

Bin hier noch nicht ganz so gut, wo liegt mein Fehler? wie siehts richtig aus?

[Sidorion]

Nachdem Delphi sich etwas affig hat mit typen von var-parametern solltest Du Dir vorher einen Typ deklarieren:

Delphi-Quellcode:

TIntArray=Array of Integer;

Dann sieht dann Dein Prozedurkopf so aus:

Delphi-Quellcode:

procedure EinWert(aWert: array of Integer; aStart,aEnd:Integer ;Var Wert:TIntArray);

..und der Aufruf so:

Delphi-Quellcode:

Var
  result: TIntArray;
Begin
  EinWert(Wert,0,1418,result);
End;

[Steve]

Hi,

wenn Du einen Rückgabewert willst - warum nimmst Du dann ne Prozedur und nicht einfach ne Funktion??

Gruß
Stephan :dance:

[Hallo_Thomas]

Siehe überschrift, ich wollte ne ganze array zurückgeben.

[Hallo_Thomas]

Jo, ich habs jetzt mal so umgeschrieben wie Sidorion gesagt hat.

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var WERT:array of Integer);
Var y :Integer ;
begin

  for y := aStart to aEnd do
  Wert[y]:=0;

end;

Jetzt meint man, das, ich hier ne zugriffsverletzung habe.

Delphi-Quellcode:

Wert[y]:=0;

[Luckie]

Geht doch auch mit einer Funktion. Du musst dir nur einen eigenen Typen deklarieren, wie oben schon mal beschrieben.

Delphi-Quellcode:

type
  TMyIntArray = array of Integer;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function foo(len: Integer): TMyIntArray;
var
  i: Integer;
begin
  SetLength(result, len);
  for i := 0 to Length(result) - 1 do
    result[i] := i;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  IntArray: TMyIntArray;
begin
  IntArray := foo(5);
  for i := 0 to length(IntArray) - 1 do
    Listbox1.Items.Add(IntToStr(IntArray[i]));
end;

[Luckie]

Zitat:

Zitat von Hallo_Thomas

Jetzt meint man, das, ich hier ne zugriffsverletzung habe.

Delphi-Quellcode:

Wert[y]:=0;

Du musts ja auch erst mal die Länge deines dynamischen Arrays setzen mit SetLength.

[Hallo_Thomas]

Wahrscheinlich häng ich hier an einem ganz einfacehn Problem,
(Sehr vereinfacht, soll nur dazu dienen um Problem darzusellen


Procedure1

Hauptberechnung

hier wird auch die Array Wert mit einem Wert versehen

Nun soll in Procedure Werteins die Array Wert auf null gesetzt werden.

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var Wert:array of Integer);
Var y :Integer ;
begin
  SetLength(Wert,1500);
  for y := aStart to aEnd do
  Wert[y]:=0;

end;

Delphi-Quellcode:

SetLength(Wert,aEnd);

Fehlermeldung:inkompatible Typen :wall: :drunken: :wall:

[Jens Schumann]

Zitat:

Zitat von Hallo_Thomas

...Fehlermeldung:inkompatible Typen :wall: :drunken: :wall:

Wenn Du Dir die Beiträge genau durchliest wirst Du feststellen, dass Sidorion die Lösung geschrieben hat

[Hallo_Thomas]

:coder2: Ein kleines Wort, nur eines :tongue: :witch: :cheers:

[Hallo_Thomas]

:?: Freu dich bloss nicht zu früh :twisted:
das Programm hängt sich schon auf

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
  SetLength(Wertigkeit,aEnd);
  for y := aStart to aEnd do
  Wertigkeit[y]:=0;
end;

Keine Ahnung, aber irgendwie hängt sich das Programm jetzt auf?

[Luckie]

Kleines Beispielprogramm ist gut. :roll: Ohne Kommentare oder Hinweise, wo man gucken muss, geschweige denn wie es funktioniert oder was es macht. Zumindest ein klitze kleiner Hinweis wie man es hinbekommt, dass die besagte Prozedur aufgerufen wird, wäre etwas hilfreich. Ich bekomme nämlich schon so eine AccessViolation bei

Delphi-Quellcode:

procedure TForm1.AllSpeedButtons(Sender: TObject);
var
  farbe                  : TColor;
  itag                   : Integer;
begin
  farbe := clRed;
  itag := (Sender as TSpeedButton).Tag;
  meineListe.Insert(0, (IntToStr(itag)));
  AddMyItem(IntToStr(itag), farbe);
end;

Gefunden:

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer; aStart, aEnd: Integer; var Wertigkeit: TIntArray);
var
  y                    : Integer;
begin
  SetLength(Wertigkeit, aEnd);
  for y := aStart to aEnd - 1 do
    Wertigkeit[y] := 0;
end;

Dynamische Arrays gehen von 0 bis Länge - 1.

[axelf98]

Zitat:

Zitat von Hallo_Thomas

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
  SetLength(Wertigkeit,aEnd);
  for y := aStart to aEnd do
  Wertigkeit[y]:=0;
end;

1) Array-Grenzen verletzt: setlength(Array,länge) Zugriff immer nur von Array[0] bis Array[länge-1]!

[edit] zu langsam.. Musste aber auch schon um 5 heute raus..[/edit]

[Hallo_Thomas]

Zitat:

Zitat von axelf98

Zitat:

Zitat von Hallo_Thomas

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
  SetLength(Wertigkeit,aEnd);
  for y := aStart to aEnd do
  Wertigkeit[y]:=0;
end;

1) Array-Grenzen verletzt: setlength(Array,länge) Zugriff immer nur von Array[0] bis Array[länge-1]!

[edit] zu langsam.. Musste aber auch schon um 5 heute raus..[/edit]

Wie änder ich das ab? Bei mir erscheint immer nur Stack-überlauf.

[Luckie]

Zitat:

Zitat von Hallo_Thomas

Wie änder ich das ab? Bei mir erscheint immer nur Stack-überlauf.

Habe ich dir doch gepostet, inklusive dem gefixten Bug.

[Hallo_Thomas]

???Programm läuft zwar wieder, aber die Wertigkeiten werden in der Hauptprozedur immer noch nicht auf null gesetzt.


Hauptprozedur:

Delphi-Quellcode:

EinWert(Wertigkeit,0,11,result);
     begin
      Eins  :=Wertigkeit[1];
      Zwei  :=Wertigkeit[2]+Wertigkeit[8]+Wertigkeit[10];
      Drei  :=Wertigkeit[3]+Wertigkeit[9]+Wertigkeit[11];
      Vier  :=Wertigkeit[4];
      Fuenf :=Wertigkeit[5]+Wertigkeit[9]+Wertigkeit[10];
      Sechs :=Wertigkeit[6]+Wertigkeit[8]+Wertigkeit[11];
      Sieben:=Wertigkeit[7];

Nebenprocedur:

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
  SetLength(Wertigkeit,aEnd+1);
  for y := aStart to aEnd do
  Wertigkeit[y]:=0;
end;

[leddl]

Na warum fragst du in deinem Code dann nicht auch dein Ergebnis-Array ab? Du setzt ja danach deine Variablen auf die Werte, die du in die Funktion übergibst (Wertigkeit). Richtig aber wäre es, das Ergebnis zu benutzen (result).

Du müßtest daher nach dem Funktionsaufruf "Wertigkeit" jeweils durch "result" ersetzen.

[Hallo_Thomas]

Mein Ziel ist es bis es erstmal herrauszubekommen wie ich eine Prozedur schreibe, die diese Wertigkeiten zurückgibt, da ich im Orginalprogramm, den Wert Wertigkeit ca.2500 tausend mal abändern dürfte!!! Ich hab über prozeduren eigentlich kaum Erfahrungen, bin aber sicher, dass das gehen müsste was ich vorhab.

Irgendwie muss es doch auch gehen, dass ich diese Wertigkeiten auf null seten kann durch eine Procedure?

Dies dient mir erst mal als Probe, später soll nicht nur der Wert Null zurückgegeb werden!

[leddl]

Falls es dir darum geht das übergene Array umzuwandeln (Das wird mir aus deiner Prozedur nicht ganz klar, da das Array aWert dort nicht benutzt wird), dann übergib doch einfach genau dieses Array als Var-Parameter.

//Edit:
Sprich, es könnte so aussehen:

Delphi-Quellcode:

procedure TForm1.EinWert(aStart,aEnd:Integer;Var Wertigkeit:TIntArray); 
Var y :Integer ; 
begin 
  for y := aStart to aEnd do 
  Wertigkeit[y]:=0; 
end;

//Aufruf:
  EinWert(0,11,Wertigkeit);

//Edit2:
SetLength aus dem Code entfernt. Das hat da jetzt wirklich nix mehr zu suchen :oops:

[Hallo_Thomas]

Wie kann das aussehen?

[leddl]

Siehe mein Edit. Das schöne an VAR-Parametern ist ja, daß du in einer Variablen Parameter und Rückgabewert hast. Daher ist das ja für deinen Fall prädestiniert. (Falls du es eben so brauchst. Ganz hab ichs immer noch nicht kapiert)

[Hallo_Thomas]

Fehlermeldung erscheint:"Die tatsächlichen und formalen var-Paarameter müssen übereinstimmen

Delphi-Quellcode:

EinWert(1,11,Wertigkeit);

Delphi-Quellcode:

procedure TForm1.EinWert(aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
  SetLength(Wertigkeit,aEnd+1); 
  for y := aStart to aEnd do 
  Wertigkeit[y]:=0; 

end;

[Hallo_Thomas]

@leddl
Ich möchte später einmal, eine Array durchlaufen, und alle bis auf einen einzigen bestimmten auf null setzten

[leddl]

Ja, wahrscheinlich ist dein Wertigkeit eben nicht vom Typ TIntArry. Daran hab ich nicht gedacht. Aber das kriegst du auch noch hin, oder?

PS: Du kannst auch über den Button http://www.delphipraxis.net/template.../icon_edit.gif deinen Beitrag editieren.

[Hallo_Thomas]

Verdammt noch mah, datt war, ne schwere Geburt! :zwinker: