Console Applicationda türkçe karakter problemi

[delphiibo]

Arkdaşlar.
Console applicationda writeln yazarken neden türkçe karakter giremiyorum.
türkçe karkterleri başka bir karakter olarak yazıyor.
Sebebini anlayamadım.
Yardımlarını bekliyorum.

[mrmarman]

- DOS mode Türkçe karakteri göndermeyi dener misin...

- Kendi fonksiyonumu vereyim. DivXTurk projem için LG vb. marka DivXPlayer'ların Türkçe sorunsalı için hazırlamıştım.

Kod: Tümünü seç

function DosTr(Veri: string): string;
const WinTex  = 'ĞÜŞİÖÇğüşıöç';
      DosText = #166#154#158#152#153#128
               +#167#129#159#141#148#135;
var
  i: Integer;
begin
  for i := 1 to Length(WinTex) do
    while Pos(WinTex[i], Veri) > 0
      do Veri[Pos(WinTex[i], Veri)] := DosText[i];
  Result := Veri;
end;