Запись в файл в правильной кодировке

у меня есть файл (блокнот), в него выводится информация. но вместо нормального текста там отображаются кракозябры. тут писали, что в в блокноте надо поменять шрифт на Терминал. меняла, но тогда текст совсем не выводится. подскажите пожалуйста, что делать?
13 ответов

ezhik29, у файла точно txt формат? Попробуйте через Notepad++ открыть его.


ezhik29, у файла точно txt формат? Попробуйте через Notepad++ открыть его.
точно txt. Notepad++ совсем ничего не выводит ни на рус., ни на англ. там на панели есть "Кодировки", что там надо поставить, не подскажете,пожалуйста? *советовали Texter, с ним тоже не выводит.


Возможно это ДОСовская кодировка.


А что за файл? Что туда должно выводится?


ничего не выводит ни на рус., ни на англ.
меню Кодировки->Кодировки->Кириллица->OEM866


меню Кодировки->Кодировки->Кириллица->OEM866
все равно каракули( но все равно спасибо вам
А что за файл? Что туда должно выводится?
небольшой проектик. на форме эдиты. ввожу туда информацию (фамилия, имя, баллы). по нажатию кнопки баттон, все это должно появиться в текстовом документе (у меня просто блокнот). информация выводится, но с абракадаброй(


т.е. часть информации в файле читается, а часть - мусор? Если так - то для сохранения используется не текстовый файл.


т.е. часть информации в файле читается, а часть - мусор? Если так - то для сохранения используется не текстовый файл.
да, все так, как вы написали - часть правильно, часть мусор. но файл точно текстовый - txt. вот: ввела "Иванов", "Петр", "123456".


Файлу можно дать любое расширение, хоть dwg, но от этого он не станет чертежом автокада. Если в программе описан файл f: file of ... - это не текстовый, а текстовый описывается f:textfile


ezhik29, откуда и в результате чего получен этот файл?
на форме эдиты. ввожу туда информацию (фамилия, имя, баллы). по нажатию кнопки баттон, все это должно появиться в текстовом документе
Нет смысла гадать, что с Вашим файлом. Например, так
var
MyFile:TStrings;
s:string;
begin
MyFile :=TStringList.Create;
MyFile.LoadFromFile('d:\result.txt'); //обращаемся к текстовому файлу
s :=edt1.Text+', '+edt2.Text+', '+edt3.Text; //формируем строку
MyFile.Add(s);  //добавляем ее в файл
edt1.Clear; edt2.Clear; edt3.Clear; //очищаем поля ввода
MyFile.SaveToFile('d:\result.txt'); //сохраняем изменения в файле
MyFile.Free;
end;


Файлу можно дать любое расширение, хоть dwg, но от этого он не станет чертежом автокада. Если в программе описан файл f: file of ... - это не текстовый, а текстовый описывается f:textfile
а ведь тооочно)))
unit BaseUnit;
 
interface
 
type
str30=string[30];
rec=record
rfamily,rname,rtelefon:str30;
family,name,telefon:str30;
end;
 
 
Type
TBase=Object
 
public
f:file of rec; //!!!
family,name,telefon:str30;
p_family,p_name:str30;
k1,k2:boolean;
но я не могу поменять на textfile, потом куча ошибок вылетает(


А обязательно нужно, чтобы файл читался в блокноте? Программа то его правильно прочитает. А вот с чтением текстового файла программой будет больше возни.Запись в текстовый файл
type
str30=string[30];
rec=record
rfamily,rname,rtelefon:str30;
family,name,telefon:str30;
end;
var a:rec;
f:TextFile;
Begin
AssignFile(F,'Test.txt');
Rewrite(F); //если нужно добавить в файл, то вместо rewrite(f); нужно использовать Append(f);
Writeln(F,a.rfamily+','+a.rname+','+a.rtelefon+','+a.family+','+a.name+','+a.telefon);
CloseFile(F);
end;
Чтение из текстового файла
type
str30=string[30];
rec=record
rfamily,rname,rtelefon:str30;
family,name,telefon:str30;
end;
var a:rec;
f:TextFile;
Begin
AssignFile(F,'Test.txt');
Reset(F);
Readln(f,s);
Closefile(F);
a.rfamily:=Copy(s,1,Pos(',',s)-1);
Delete(s,1,Pos(',',S));
a.rname:=Copy(s,1,Pos(',',s)-1);
Delete(s,1,Pos(',',S));
a.rtelefon:=Copy(s,1,Pos(',',s)-1);
Delete(s,1,Pos(',',S));
a.family:=Copy(s,1,Pos(',',s)-1);
Delete(s,1,Pos(',',S));
a.name:=Copy(s,1,Pos(',',s)-1);
Delete(s,1,Pos(',',S));
a.telefon:=s;
end;


ого-го) спасибо! помучились же вы! попробую разобраться во всем этом) спасибо!