[ sojic @ 12.07.2004. 18:28 ] @
Moje resenje: SimplaDataSet.DataSet.CommandText:='select * from tabelu'; SimpleDataSet.Open; while not SimpleDataSet.eof do begin Polje1.text:=SimpleDataSet.FieldByName('Polje1').asString; Polje2.text:=SimpleDataSet.FieldByName('Polje2').asString; Polje3.text:=SimpleDataSet.FieldByName('Polje3').asString; Polje4.text:=SimpleDataSet.FieldByName('Polje4').asString; Polje5.text:=SimpleDataSet.FieldByName('Polje5').asString; end; Kako da uprostim ovo? Kako da iz rekorda da izvadim Fields i da iste iskoristim kao ime objekta u Delphiu? Nesto u stilu: while Not SimpleDataSet.Eof do begin // u php bi izgledalo ovako: foreach($Fields as $Name=>$Value) { $$Fields->Text:=$Valule; } end; Nada se da sam jasan. |