Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.05 c