Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Promenljive ON THE FLY

[es] :: Pascal / Delphi / Kylix :: Promenljive ON THE FLY

[ Pregleda: 1691 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
62.220.220.*

Sajt: right-sock.net


+1 Profil

icon Promenljive ON THE FLY12.07.2004. u 18:28 - pre 210 meseci
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.
routing protocols enable routers to route routed protocols!
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Promenljive ON THE FLY12.07.2004. u 20:11 - pre 210 meseci
Mislis na ovo :

Code:

SimplaDataSet.DataSet.CommandText:='select * from tabelu';
SimpleDataSet.Open;
while not SimpleDataSet.eof do
  For C1 := 1 to 5 Do
    TEdit(FindComponent('Polje' + IntToStr(C1))).Text := SimpleDataSet.FieldByName('Polje' + IntToStr(C1)).AsString;


Dalje, mozes da stavis With SimpleDataSet...
 
Odgovor na temu

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
62.220.220.*

Sajt: right-sock.net


+1 Profil

icon Re: Promenljive ON THE FLY12.07.2004. u 20:48 - pre 210 meseci
Niste me dobro razumeli, a i ja nisam dobro pisao

Polje1, polje2 i tako dalje nisu polje1, polje2 nego nesto u stilu:

Ime.text:=FieldByname('Ime').asstring;
Prezime.text:=FieldByName('Prezime').asstring;
Adresa.text:=FieldbyName('Adresa').asstring;

Imam minimum 20 polja, da ne mora da pisem 20 ovakvih reda.

Radi se o popunivanje formulara iz mysql baze.
routing protocols enable routers to route routed protocols!
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Promenljive ON THE FLY12.07.2004. u 21:54 - pre 210 meseci
Pa onda postavi brojac od 1 do broj polja i samo dodeljuj vrednosti editbox-ovima.

Nesto kao ovo :

Code:

For C1 := 1 to SimpleDataSet.FieldCount Do
  TEdit(SimpleDataSet.Fields[C1]).Text := SimpleDataSet.Fields[C1];


Znaci, postavis brojac od 1 do FieldCount (nisam siguran bas da se ovako zove property), i zatim samo dodeljujes vrednosti EditBox-ovima (TEdit(SimpleDataSet.Fields[C1]) ti je ime jednog EditBox-a).
 
Odgovor na temu

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
62.220.220.*

Sajt: right-sock.net


+1 Profil

icon Re: Promenljive ON THE FLY12.07.2004. u 22:50 - pre 210 meseci
OK, hvala, mislim da to je to.
routing protocols enable routers to route routed protocols!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Promenljive ON THE FLY

[ Pregleda: 1691 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.