Hej

jag jobbar på ett program där man ska kunna ha olika språk.
Språken ska ligga i textfiler så svenska.txt kanske ser ut så här:
knapp1
knapp2
label1

I mitt program ska jag ha:
knappar.tag := 1
labels.tag :=2
MEN gör jag så här:

<code>
var sprakLista:Tstringlist;
i:integer;
begin
chDir('språk');
SprakLista := Tstringlist.Create;
with SprakLista do
begin
LoadFromFile('svenska.txt');
end;
for i := 0 to Form1.ControlCount-1 do
begin
Showmessage(IntToStr(Form1.Controls[i].tag));
If Form1.Controls[i].Tag = 1 then
begin
(form1.Controls[i] as Tbutton).Caption := SprakLista.Strings[i];
end;
If Form1.Controls[i].Tag = 2 then
begin
(form1.Controls[i] as Tlabel).Caption := SprakLista.Strings[i];
end;
end;
end;
</code>

alltså loopar igenom alla kontroller på formen och kollar .tag på varje kontroll så får jag på:
knapp1 = "knapp1"
knapp2 = "label1"
label1 = "knapp2"

helt knäppt...fattar inte varför..
Har kollat koden flera gånger, har kollat knapparnas .tag, även labels.tag
men dom är rätt