Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
Verdammt noch mah, datt war, ne schwere Geburt! :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
@leddl
Ich möchte später einmal, eine Array durchlaufen, und alle bis auf einen einzigen bestimmten auf null setzten
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
Fehlermeldung erscheint:"Die tatsächlichen und formalen var-Paarameter müssen übereinstimmen
EinWert(1,11,Wertigkeit);
procedure TForm1.EinWert(aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
SetLength(Wertigkeit,aEnd+1);
for y := aStart to aEnd do
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
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...
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
???Programm läuft zwar wieder, aber die Wertigkeiten werden in der Hauptprozedur immer noch nicht auf null gesetzt.
Hauptprozedur:
EinWert(Wertigkeit,0,11,result);
begin
Eins :=Wertigkeit;
Zwei :=Wertigkeit+Wertigkeit+Wertigkeit;
Drei :=Wertigkeit+Wertigkeit+Wertigkeit;
Vier :=Wertigkeit;
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
Wie änder ich das ab? Bei mir erscheint immer nur Stack-überlauf.
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
:?: Freu dich bloss nicht zu früh :twisted:
das Programm hängt sich schon auf
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:=0;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
:coder2: Ein kleines Wort, nur eines :tongue: :witch: :cheers:
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
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
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
Jo, ich habs jetzt mal so umgeschrieben wie Sidorion gesagt hat.
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:=0;
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
Siehe überschrift, ich wollte ne ganze array zurückgeben.
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
Bin hier noch nicht ganz so gut, wo liegt mein Fehler? wie siehts richtig aus?
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
12. Jul 2005
Ich habe folgende Procedure geschrieben
procedure EinWert(aWert: array of Integer; aStart,aEnd:Integer ;Var Wert:array of Integer);
So sollte eigentlich der Übergabebefehl aussehen, stellte ich mir vor.
EinWert(Wert,0,1418)
Fehlermeldung, nicht genügend Parameter