Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#11

Re: Umlaute im nicht deutschen Windows umwandeln?

  Alt 10. Okt 2008, 17:02
Und ist dann die Abfrage richtig so?

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Ident: Integer;
  MyLang: PChar;
const
  Size: Integer = 250;
begin
  GetMem(MyLang, Size);
  Ident:=GetSystemDefaultLangID;
  VerLanguageName(Ident, MyLang, Size);
  Label1.Caption:=StrPas(MyLang);
  FreeMem(MyLang);

  if Label1.Caption='Deutsch (Deutschland)then
  begin
  nicht umwandeln...
  end else umwandeln..;

end;
  Mit Zitat antworten Zitat