ProgressBar -> Schleifeneinbau

[Bj]

würde gerne eine Progressbar als Vortschittsanzeige in eine Schleife einbauen.
wie mache ich das, dass diese komponente anzeigt wie weit diese schleife forgeschriitten ist?

hier die schleife:

while (!Query1->Eof)
    {
      AnsiString filele = Query1 -> FieldByName("bmp_name") -> AsString;
      // denke mal hier müsste man ansetzen?
      if (FileExists (Path + filele.SubString(3,filele.Length())))
         pzaehler++;   // unwichtig
          else 
          {
          ListBox1 -> Items -> Add (Query1->FieldByName("bmp_name")->AsString);
          nzaehler++; // unwichtig
          }
    Query1->Next();
   }

thx
Bj

[Xqgene]

WebFritzi schrieb:

Mein Tipp: Verwende deinen Grips, d.h. die Methoden von AnsiString und dein Englisch (und sei es noch so schlecht...).

hier aber ProgressBar

[RaKo]

Zuerst musst du ermitteln wieviele einträge vorhanden sind.

ProgressBar->Max = Anzahl eingräge;
ProgressBar->Position = nzaehler;

Gruß Rainer

[Bj]

1.)
ich kann aber doch nicht die erste anweisung löschen? die brauche ich doch noch oder?
wrum muss denn eigentlich SQL geleert werden? dürfen dort keine 2 zeilen drin stehen?

soweit startet das programm, doch erst wenn ich die zeile
Query1->SQL->Open();
enfernt habe.
denn dort kommt die fehlermeldung das Open nicht in TStrings exisitiert?!?

und naja, das programm startet zwar, aber die 1. zeile ist ja gelöscht wurde, somit passiert gar nix.

im klartext:
1.) kann man von vorneherein nicht diese zeile:
select count(*) as cn from vapbitmap
zu der anderen in Eigenschaften von Query reinschreiben, zu der
darin bereits existierenden als 2. Zeile???
2.) warum funzte das open denn nicht mehr?

thx
Bj

[junix]

Hier geht die TQuery-Story weiter:

http://c-plusplus.net/forum/viewtopic.php?t=48021

-junix