Lidt fra noget kørende kode:
Procedure TForm1.ShowSomethingOnMyForm;
// Gennemsøg min form efter et navngivet felt, og udfyld med data
Procedure ShS(FldName,S: String);
var N: Integer;
begin
For N:=0 to ComponentCount-1 do
if CmpStr(Components[N].Name,FldName) then begin
if Components[N] is TLabel then
TLabel(Components[N]).Caption:=S
else if Components[N] is TEdit then
TEdit(Components[N]).Text:=S
else if Components[N] is TCheckBox then
TCheckBox(Components[N]).Checked:= S='1'
else if Components[N] is TComboBox then
ShowCB(TComboBox(Components[N]),S) // hjemmelavet!!
else
Debug('Unknown type: '+Components[N].Name);
EXIT;
end;
Debug('Fld not found:'+FldName);
end;
Procedure Sh(FldName,Col: String);
begin
if Col='' then Col:=Copy(FldName,3,99); // Glem første 2 tegn (her
"ed")
ShS(FldName,LoadDataFromIniFile(Col) );
end;
begin {ShowJob}
try
Sh('edTelefon','');
Sh('edAdrNavn1','');
Sh('edAdrNavn2','');
Sh('edAdr','Address'); // Alternativ navn fra Ini filen
Sh('edAdrHus','');
Sh('edAdrEtg','');
Sh('edAdrSup','');
Sh('edAdrPost','');
Sh('edAdrBy','');
.....
--
Christen Fihl
http://HSPascal.Fihl.net/