[ LUGOS-PROG ] Kylix, Take Two!

[Gregor Ibic]

Eh, FindNext nije baš v stilu SQL-a !!!

Sem že videl, da je nekdo svetoval

*.First
while not *.EOF do begin
	// naredi kaj s podatki
	*.Next
end

Delalo bo hitreje.

Lp,
Gregor

Intelicom d.o.o.
Security software company
http://www.intelicom.si
email: info at intelicom.si
tel.: ++386 5 6279 350
fax.: ++386 5 6273 784

-----Original Message-----
From: David Klasinc [mailto:bigwhale at m42.cx]
Sent: Tuesday, July 10, 2001 11:57 PM
To: lugos-prog at lugos.si
Subject: [ LUGOS-PROG ] Kylix, Take Two!


Banzai!

Delphi, Kylix... what's the difference... Se pravi, kdorkoli...

Odlocil sem se nafilat en combobox s podatki iz baze... To pocnem na tak
nacin, da zmecen v form tiste tri kvadratke, ki predstavljajo TSQLConnection
TSQLClientDataSet in TDataSource.

In pa se en combo box...

No, in potem... potem napisem se teh nekaj vrstic v
procedure TForm1.FormCreate(Sender: TObject);


if SQLClientDataSet1.FindFirst = FALSE then
  ShowMessage('Whoops!');
ComboBox1.Items.Add(SQLClientDataSet1.FieldByName('kraj').Text);
while SQLClientDataSet1.FindNext = TRUE do begin
  ComboBox1.Items.Add(SQLClientDataSet1.FieldByName('kraj').Text);
end;


Da se tale combo box nafila ob startu programa... Nakar program startam in
zadaj v terminalu, kjer imam pognan tail -f mysql.log se lepo izpise, da je
moj program naredil select iz baze in potem se quit...

No in medtem jaz cakam in cakam in cakam in cakam... In potem se pokaze moj
program... ComboBox je napolnjen in to je to! JUHU! Ampak zakaj hudica je
potreboval 100 let, da je to naredil? Aja, ce dam pa na form DBGrid, pa se
zadeva pozene takoj in prakticno nic ne caka... tisti While se pa izvaja pol
stoletja...

Naj mi prosim nekdo pove, da delam nekaj narobe in da sem sam kriv za to
pocasnost... Poizkusil sem tudi z DBComboBox pa je isti smorn... :)



David!
---------------
Weep and cry, Windows die.