| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа с текствовыми файлами.

voe ©   (2007-04-05 17:22:00) 

Люди помогите! "Сто лет" уже  не писал... ни как не могу вспомнить...
Необходимо из 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;

Но заместо того что мне надо он читает из файла только символ " которого в начале файла то и нет!
Люди помогите очень надо!

---

voe   (2007-04-05 17:37:00) [1]

> > Германн ©   (05.04.07 17:30) [1]
> >
> > readln(f, buf);
> >
>
> Не читать! :(
>
> Замени buf : String на buf : Char


Благадарю!

---

Германн   (2007-04-05 17:32:00) [2]

> Германн ©   (05.04.07 17:30) [1]
>
> readln(f, buf);
>

Не читать! :(

Замени buf : String на buf : Char

---

Германн   (2007-04-05 17:30:00) [3]

read ln(f, buf);

---

Наверх