Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
12. Mai 2005
Ich habs leider schon gelöscht, ich hatte schon mal dieses Programm auf
meineliste := TStringList.Create;
............
Da hatte ich die Listbox nur och zur Anzeige benutzt und die Komplette Berechnung auf meineListe umgestellt hatte aber nicht wirklich was gebracht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
12. Mai 2005
Danke Dir, aber dies werde ich im Moment nicht nachgehen, da meine labels meisents mit nil angesprochen weerden im längeren Programm, hab sie hier nur veranschaulichung alle mitzählen lassen. :cyclops:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
12. Mai 2005
@Sharky
Ich habe deinen Quelltext eigentlich nur reinkopiert und den rest gelöscht.
und ich bleibe dabei das jetzte Beispiel1 Programm ist auf keine Fall schneller als Programm Beispiel
procedure TForm1.Addmyitem(const AItem: string; const AColor: TColor);
var
x, i,pl0 : Integer;
counte : array of Integer;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
12. Mai 2005
@jbg Natürlich niemand, aber das Auswertungsprogramm , ungefähr 15 Labels benötigen jede Runde alle, die restlich ca zw. 20-300 Items
Deswegen wollte ich zur Probe erst mal
for x := 2 downto 0 do
aber auch dies hat keinen Performance Erfolg gebracht.
Und sei dir sicher, ich brauche insgesamt ca.600 Label, aber Aufgrund der momentanen Performance, kann ich mit nur 400 arbeiten.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
12. Mai 2005
@ Sharky
for y := Form1.Anzeige.count - 1 downto 0 do
begin
for x := 0 to 409 do
begin
if StrToInt(Form1.Anzeige.Items) in werte then
Counte := 0
else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
12. Mai 2005
@Sharky, bevor ich Deins jetzt anschaue, erst mal Dankeschön, für die vielen korrekten Antworten. Die waren echt Spitze!!!!!!!!!!!!!!
@Delphi_Fanatic Mit Visible True oder False, die Zeit bleibt bei 34s
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
12. Mai 2005
Ich habe jetzt noch mal die letzten Tage probiert und gemacht aber ich komme irgenwie kein Stückchen vorran! Ich versuche die Geschwindigkeit des Programms im Anhang zu erhöhen, im Moment benötigt es für 30000 zahlen ca. 34s Zeit egal ob ich nun Stringliste benute oder ob ich für
for pl0 := Form1.Anzeige.count - 1 downto 0 do
begin
for x := 0 to 81 do
begin
if...