Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.174 c
2-1175711062
sholomak
2007-04-04 22:24
2007.04.22
Работа с PDF


2-1175256902
Alex_C
2007-03-30 16:15
2007.04.22
Указатель на открытый массив


2-1175771291
Steep
2007-04-05 15:08
2007.04.22
Icon -> BitMap


15-1174848004
_Knight_
2007-03-25 22:40
2007.04.22
Почему-то не могу ничего запостить&#133 пароль не принимается.


1-1172567109
Тфьу
2007-02-27 12:05
2007.04.22
Создание библиотек bpl