edit/label in einer schleife aktualisieren

Ehemaliges Mitglied Erhaltene Danke: 1

Hallo,

ich habe folgendes Problem: In einer Schleife soll ständig das aktuelle Ergebnis zu sehen sein, da die Schleife aber zu schnell ist, habe ich noch eine kleine Pause eingebaut, damit das Auge auch die Zwischenergebnisse sieht. Mein Problem ist, dass nur das Endergebnis zu sehen ist (auch mit großen Pausen, dann verzögert sich nur das Ergebnis um die Zeit, jedoch wird kein Zwischenergebnis angezeigt)

Kleines Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:

  for i:='a' to 'd' do begin
    edit1.text:=i;
    sleep(100);
  end;

Ich stelle es mir so vor, dass delphi die Komponente erst wieder aktualisiert, wenn gerade keine Procedure/Funktion läuft. Wie kann ich es aber trotzdem schaffen?

Vielen Dank im voraus.

Viele Grüße
µaTh

mkinzler · Verfasst: Mi 08.02.06 10:08

update nach Änderung des Wertes aufrufen.

_________________
Markus Kinzler.

Ehemaliges Mitglied Erhaltene Danke: 1

supi. vielen dank.

Ehemaliges Mitglied Erhaltene Danke: 1

nach ne frage dazu, wie kann ich in der scrollbar die position des balken mit hand in dieser schleife verändern?

mkinzler · Verfasst: Mi 08.02.06 10:48

Position

_________________
Markus Kinzler.

Ehemaliges Mitglied Erhaltene Danke: 1

ich hab mich ein bisschen schlecht ausgedrückt: in die schleife will ich noch eine scrollbar einbauen, mit der sleep(scrollbar.position) gesteuert werden kann. Wenn jedoch die schleife läuft kann der wert nicht verändert werden, was ich jedoch möchte. und .update funktioniert nicht so wie ich es haben will.

mkinzler · Verfasst: Mi 08.02.06 11:04

Nimm doch einen Timer

_________________
Markus Kinzler.

Ehemaliges Mitglied Erhaltene Danke: 1

kannst du mir einen vorschlag machen, wie ich das realisiern kann, dass während die schleife läuft ich immer noch scrollbar.position ändern kann? ich kann mir das mit einem timer nicht vorstellen

vielleicht gibt es auch einen besseren weg?)

Quellbeispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:

  for i:='a' to 'z' do begin
    edit1.text:=i;
    sleep(scrollbar.position);
  end;

Gausi · Verfasst: Mi 08.02.06 15:33

Mal abgesehen davon, dass die For-Schleife mit den Chars nicht läuft (D7 Pers), so funktionierts:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

for i := 1 to 26 do begin
  edit1.text:=inttostr(i);
  edit1.Update; // Edit Updaten, damit das neue auch gemalt wird
  scrollbar1.position := scrollbar1.Position + 1; // Postion verändern
  sleep(100); // Pause machen
end;

_________________
We are, we were and will not be.

Ehemaliges Mitglied Erhaltene Danke: 1

bei D6 Prof funzt es aber. (ist aber hier nicht entscheidend)

ich will aber während der schleifenlaufzeit mit der maus die scrollbar ändern. und da während die schleife läuft nicht funtioniert. ich möchte gerne die sleep zeit in der schleife beliebig variieren, während die schleife läuft

Ehemaliges Mitglied Erhaltene Danke: 1

ich hab die lösung gefunden:

markieren

Delphi-Quelltext

1:	application.processmassages

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme