请使用英文Windows的大大帮个忙
数字蛋糕 2004-07-05 09:12:36 在窗体上放一个Memo和一个Button。然后在Button的事件中写:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to Languages.Count - 1 do
begin
Memo1.Lines.Add(Format(' FLanguages[%d].ID := %s;', [i, Languages.ID[i]]));
Memo1.Lines.Add(Format(' FLanguages[%d].Ext := ''%s'';', [i, LowerCase(Languages.Ext[i])]));
Memo1.Lines.Add(Format(' FLanguages[%d].Name := ''%s'';', [i, Languages.Name[i]]));
end;
end;
然后就是把结果贴出来就可以拿分了。