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

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

Работа с функцией BlockRead [D7, WinXP]

Страницы:   < 1 2 >

Генри ©   (2005-02-25 16:58:00) 

procedure TForm1.Button1Click(Sender: TObject);
var
f:File;
Buf:array [1..255] of Char;
begin
if OpenDialog1.Execute then
AssignFile(f,OpenDialog1.FileName);
Reset(f);
 while not eof(f) do begin
BlockRead(f,Buf,2);
end;
Edit1.Text:=Buf;
CloseFile(f);
end;
end.

Вопрос - почему в Edit1 выводится абракадабра??
PS прошу прощения за дурацкий вопрос.

---

Александр Иванов   (2005-02-25 17:07:00) [21]

Принцип SISO

---

Anatoly Podgoretsky   (2005-02-25 17:04:00) [22]

А что должно быть?

---

Страницы:   < 1 2 >

Наверх