Mysql Libary ???

DT2158 · Beiträge: 73

Habe mich mal wieder mit der Fichtner.net mysql libary versucht.
...so das test mysql_test projekt rundergeladen und versucht.

Das Beispiel-prjekt funzt jedoch ich habe immer eine fehlermeldung bei einer while-schleife die meiner meinung auch in einer endlos schleife enden müsste, wieso geht das aber beim beispie projekt???

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

DatabaseRows := mysql_num_rows(Databases);
        Report.Lines.Add(Format('* Found %d existing databases on server:', [DatabaseRows]));
        while DatabaseRows > 0 do begin
          // mysql_fetch_row
          Database := mysql_fetch_row(Databases);
          // mysql_select_db
          if mysql_select_db(MySQL, Database[0]) <> 0 then Fail;
          // mysql_list_tables
          Tables := mysql_list_tables(MySQL, nil);
          if Tables = nil then Fail;

databaserows bleibt constant, daher resultiert das in einer endlos schleife warum geht das projekt aber?

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

Hallo,
hast du mal durch die schleife debuggt? Einzelschrittsimulation mein ich.

Ich weiß zwar nicht genau, was das alles macht, aber Fail; als befehl hört sich sehr danach an, daß die Schleife damit abgebrochen werden kann.

Aber was genau meinst du mit, das projekt geht? Lässt es sich kompilieren oder meinst du, daß es sich sogar ausführen lässt, ohne das es zu einer endlosschleife kommt?
Wie gesagt, schau dir mal fail an

Gruß
Ken

_________________
Eine Klasse beschreibt die Struktur und das Verhalten einer Menge gleichartiger Objekte.

DT2158 · Beiträge: 73

die whileschleife ist sehr verschachtelt, aber ich hab das ende der schleife net gesehn, da steht kurz davor nämlich ein dec(DatabaseRows) :roll:

problem damit gelöst

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme