Rasgele Erişimli Dosya

[compsed]

Merhaba arkadaşlar, rasgele erişimli bir dosyayı okumak istiyorum. Aşağıdaki gibi türkçe karakterleri bozulmuş şekilde okuyor.
"ÿÿÿÿ €ELEB˜ SABAHATT˜N "

Bu sorunu nasıl çözebilirim? yada bu dosyaları okurken mi yanlış okuyorum. Cevaplarınız için şimdiden teşekkürler

[sabanakman]

OemToAnsi fonksiyonu ile normale çevirebilirsiniz. Belli ki bilgiler dos programıyla oluşturulmuş, böyle bir durumda kullanılacak fonksiyon (dos->windows çevrimi için) OemToAnsi'dir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var S:array[1..200]of char; st:String;
begin
  St:='ÿÿÿÿ €ELEB˜ SABAHATT˜N ';
  OemToAnsi(PChar(St),@S); //<-- S karakter dizi değişkeninde ÇELEBİ SABAHATTİN bilgisi elde edilir
  Label1.Caption:=S; 
end;

[compsed]

Çok teşekkür ederim cevabınız için.