Ü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... :gruebel:
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:

Delphi-Quellcode:

    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 !!! :-) :dp: