Über ButtonClick in Datenbank schreiben...

[Sulustaner2004]

tag zusammen...

ich habe ein problem...ich würde gern 25 tedit felder über einen buttenclick ereignis, aus einer datenbankauslesen und eintragen lassen...habe aber keine idee wie ich das anstellen soll...
hoffe ihr könnt mir da weiter helfen....
schon mal danke im voraus...

[grayfox]

hallo sulustaner!

am einfachsten so:

Code:

{$UNTESTED}
procedure ButtonClick(Sender: TObject);
var
   i: ShortInteger;
begin  
  for i:= 1 to 25 do 
    FindComponent('Edit' + IntToStr(i)).Text:= Table1.Fields.Fields[i].asString;
end;

... vorausgesetzt, dass die tabellenfelder in der reihenfolge angeordnet sind, in der du sie angezeigt haben willst.
was anderes... warum nimmst denn keine datasource und DBEdit-Felder? das wär dann viel einfacher.

mfg, stefan

[Robert_G]

Moin.

Kleine Verbsserung - der Index von Fields beginnt mit 0:
    FindComponent('Edit' + IntToStr(i)).Text:= Table1.Fields.Fields[ pred(i) ].asString;

[grayfox]

da hast nicht unrecht, @GeorgeW.
so hätte es aussehen sollen:

Code:

...:= Table1.Fields.Fields[i-1].asString

mfg, stefan

[Sulustaner2004]

danke euch...das hat geholfen...
ihr seid spitze hier !!!