- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
{
----------------------8<----------------------
Цей юніт призначений лише для використання
разом із пакетом програм ███████
будь-якої версії.
Він не може розповсюджуватися окремо, так
як являється частиною пакету, який може
розповсюджуватися на платній основі.
(С) Copyright ███████████████
----------------------8<----------------------
}
(* ~15 строк поскипано за унылостью *)
procedure TranslateForm(var form:TObject; const LNGFile:String);
var
ini:TIniW;
c1,c2,p1,p2,i:Integer;
Sct,par,val:string;
keys:TStringList;
cobg:TObject;
comp:TComponent;
begin
initini(ini,LNGFile);
keys:=TStringList.Create;
sct:=Trim((form as TForm).Name);
c1:=ini.KeyCount(Sct);
ini.ReadSection(Sct,keys);
cobg:=(form as TObject);
for I := 0 to c1-1 do
begin
par:=keys[I];
p1:=Pos('=',par);
par:=Trim(Copy(par,0,p1-1));
val:=ini.ReadString(Sct,par,'read error');
typinfo.SetStrProp(cobg,par,val);
end;
c2:=(form as TForm).ComponentCount;
for p2 := 0 to c2 - 1 do
begin
comp:=(form as TForm).Components[p2];
cobg:=(comp as TObject);
sct:=typinfo.GetStrProp(cobg,'Name');
c1:=ini.KeyCount(Sct);
if c1>0 then
ini.ReadSection(Sct,keys);
for I := 0 to c1-1 do
begin
par:=keys[I];
p1:=Pos('=',par);
par:=Trim(Copy(par,0,p1-1));
val:=ini.ReadString(Sct,par,'read error');
try
typinfo.SetStrProp(cobg,par,val);
except
end;
end;
end;
end;
end.
Follow us!