Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
17. Jun 2005
Wie wird für MinArrayValue der Befehl richtig geschrieben?
Counter:= MinArrayValue(Counter,(Counter,Counter);
Fehlermeldung, undefinierter bezeichner 'MinArrayValue'
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
17. Jun 2005
@Khabarakh
Ganz so wissend bin ich hier auch nicht, aber deswegen poste ich ja!
ahha, Ich schaus mir glei mal an!Danke!
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
17. Jun 2005
@Khabarakh. Vieleicht hab ich mich verlesen, hab jetzt leider das eine Büchlein schon zurück zur Bibo geschafft!
Ich Dem was ich jetzt da hab, hab ich nichts gefunbden!
@ Sharky
wie meinst Du das mit der Hilfsvariablen?
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
17. Jun 2005
@Leddl
Nach meiner Theorie müsste man es vielleicht mit Quicksort schneller gehen, aber meinen Wissen was so was angeht ist noch sehr gering! Ich habe da zwar schon Sdie Sortiertverfahren endecht, aber diese Sortierten immer nur ganze Arrays. Und ich benötige ja nur den kleinsten Wert aus 3 Variablen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
17. Jun 2005
Weis jemand wie schnell dieser Befehl ganz oben dauert in Ms?
Mein Hauptproblem liegt darin, dass ich dieses Procedur für Tchart brauche, da sollen dann wür jeden Counter(es kommen einige dazu)dieser Quellcode durchlaufen, und zwar dann pro Item 1 .mal. Er sollte schon mind. im 5.Stelligen bereich arbeiten.
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
17. Jun 2005
procedure TForm1.AddMyItem(const AItem: String; const AColor: TColor);
var
x,y,i : Integer;
Counter : array of Integer;
begin
DoubleBuffered := True;
Anzeige.Items.InsertObject(0, AItem, Pointer(AColor));
for i := 0 to 200 do
for y := 0 to 144 do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Hallo_Thomas,
17. Jun 2005
Ich hab ein Programm in der so eine Zeile 1000 mal durchlaufen wird, da ich immer nur das Minimum brauche. Gibt es ein Verfahren welches für Variablen schneller ist als dieses?
Counter:= Min(Counter,Min(Counter,Counter));
edit:Weis jemand wieviel Ms dieser Durchlauf benötigt?