Ui...
Also ToolBar ( + Buttons/Trenner), TreeView, CheckListBox, Memo, Edit, CheckBox, BitButtons und ein Mainmenu...
Wobei dieser Fehler in der
Unit auftritt, wo er
sl.Assgin(s) aufruft... Ich weiß gerade nicht wo er dass macht...
[edit]Ah... Ich habs: In der Funktion "
TranslateStrings"
Delphi-Quellcode:
procedure TGnuGettextInstance.TranslateStrings(sl: TStrings;
const TextDomain:
string);
var
line:
string;
i: integer;
s:TStringList;
begin
if sl.Count > 0
then begin
sl.BeginUpdate;
try
s:=TStringList.Create;
try
s.Assign (sl);
for i:=0
to s.Count-1
do begin
line:=s.Strings[i];
if line<>'
'
then
s.Strings[i]:=dgettext(TextDomain,line);
end;
sl.Assign(s);
// <!--- Hier kommt die AV... (Wahrscheinlich ist sl nil?)
finally
FreeAndNil (s);
end;
finally
sl.EndUpdate;
end;
end;
end;
[/edit]