Текущий архив: 2007.04.22;
Скачать: CL | DM;
Вниз
работа с текствовыми файлами. Найти похожие ветки
← →
voe (2007-04-05 17:22) [0]Люди помогите! "Сто лет" уже не писал... ни как не могу вспомнить...
Необходимо из txt файла по символьно считывать данные но как это сделать не как не получается. Вот что я смостерил:procedure TForm1.BitBtn1Click(Sender: TObject);
var
f: TextFile;
fName: String;
buf: string;
begin
fName := LabeledEdit1.Text;
AssignFile(f, fName);
Reset(f);
while not (EOF(f)) do
begin
read(f, buf);
end;
CloseFile(f);
end;
Но заместо того что мне надо он читает из файла только символ " которого в начале файла то и нет!
Люди помогите очень надо!
← →
Германн © (2007-04-05 17:30) [1]
readln(f, buf);
← →
Германн © (2007-04-05 17:32) [2]
> Германн © (05.04.07 17:30) [1]
>
> readln(f, buf);
>
Не читать! :(
Замени buf : String на buf : Char
← →
voe (2007-04-05 17:37) [3]
> > Германн © (05.04.07 17:30) [1]
> >
> > readln(f, buf);
> >
>
> Не читать! :(
>
> Замени buf : String на buf : Char
Благадарю!
Страницы: 1 вся ветка
Текущий архив: 2007.04.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.773 c
