Du gibst jedem Button einen Tag, 1 bis Anzahl Buttons. Der Button Tag ist in einer Sektion in der Ini gespeichert zB. so:
[Captions]
1=OK
2=Hilfe
3=Abbruch
Jetzt nimmst Du ne for Schleife in ner Prozedur :
Delphi-Quellcode:
var
I: Integer;
Temp: TComponent;
begin
ini := TIniFile.Create(Pfad);
try
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components[I];
if Temp = TButton then begin
with Temp as TButton do
Caption := ini.ReadString(SektionsName, ButtonTag,'0');
end;
end;
finally
ini.Free;
end;
end;
Der IniPfad is ne Globale Variable und wird bei jedem Sprachwechsel geändert. So kannst Du alle Buttons beim Sprachwechsel umbenennen.