[dimak08]

До компиляции проэкта создается файл "D:/test.txt" с произвольным текстом (для примера "saddasfadfadsfadf")

после выполнения

Код:

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.LoadFromFile('D:\test.txt'); end;

в memo1 появляется текст: "ÿþs"

как это исправить??

[AlexSku]

Может быть файл был создан (напр., Блокнотом) в кодировке Unicode или что-то подобное.

[dimak08]

Сообщение от AlexSku

Может быть файл был создан (напр., Блокнотом) в кодировке Unicode или что-то подобное.

А как нибуть можно указывать кодировку при открытии файла?? или как нибуть её менять (посредством Delphi)

[andra13]

Попробуй сделать перекодировку после того, как считаешь файл в memo

Код:

1	for I := 0 to Memo1.Lines.Count  - 1 do  memo1.Lines[i]:= dostowin(Memo1.Lines[i]) ;

Есть такие функции

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

Function dostowin(znak:string):string; var sd:LongInt; m:integer; sims:string[1]; sim: AnsiChar; begin result:=''; for m:=1 to length(znak) do begin sims:=copy(znak,m,1); (*{$H-}*) sim:= ansichar(sims[1]);  sd:=ord(sim);  if (ord(sim)>=128) and (ord(sim)<=159) then     sd:=ord(sim)+64;  if (ord(sim)>=160) and (ord(sim)<=175) then     sd:=ord(sim)+64;  if (ord(sim)>=224) and (ord(sim)<=239) then     sd:=ord(sim)+16; sim:=  (AnsiChar(sd)); sims[1]:=sim; znak:=copy(znak,1,m-1)+sims[1]+copy(znak,m+1,length(znak)); (*{$H+}*) result:=znak;  end; end;    Function wintodos(znak:string):string; var sd:LongInt; m:integer; sims:string[1]; sim:AnsiChar; begin   for m:=1 to length(znak) do begin sims:=copy(znak,m,1); (*{$H-}*) sim:=sims[1];  sd:=ord(sim);   if (ord(sim))=13 then   else   begin  if (ord(sim)>=192) and (ord(sim)<=223) then     sd:=ord(sim)-64;  if (ord(sim)>=224) and (ord(sim)<=239) then     sd:=ord(sim)-64;  if (ord(sim)>=240) and (ord(sim)<=255) then     sd:=ord(sim)-16; sim:= AnsiChar(sd);   end; sims[1]:=sim; znak:=copy(znak,1,m-1)+sims[1]+copy(znak,m+1,length(znak)); (*{$H+}*) result:=znak;  end; end;

[lmikle]

В этой теме выложен код, который умеет читать файлы в Win1251, UTF8 и Unicode (все через декодирование). К сожалению, определить, что у нас dos-кодировка, например, или если файл не соответствует определенной конвенции (в начале для UTF и Unicode файлов идет код кодировки) автоматически невозможно. Если у кого есть иджеи как это можно сделать, то велкам.