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

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

Чтение файла

Legolas ©   (2007-02-05 16:41:00) 

Начал изучать работу с файлами, возникли проблеммы при чтении. Подскажите пожалуйста, что не так в этом коде (Memo остается пустой)
procedure TForm1.Button1Click(Sender: TObject);
var
 f: TFileStream;
 temp: Char;
 i,j:integer;
begin
 f:=TFileStream.Create('1.exe',fmOpenRead);
 i:=f.Seek(0, soFromEnd);
 for j:=0 to ((i div 10)+1)do
   begin
     f.Read(temp, 10);
     f.Seek(10, soCurrent);
     Memo1.Lines.Add(PChar(temp));
   end;
end;

---

icWasya   (2007-02-06 10:44:00) [1]

после
i:=f.Seek(0, soFromEnd);
нужно
а.Seek(0, soFromBegin);

---

TRUNK   (2007-02-06 10:29:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
f: TFileStream;
temp: array[0..9] ofChar;
i,j:integer;
begin
f:=TFileStream.Create('1.exe',fmOpenRead);
i:=f.Seek(0, soFromEnd);
for j:=0 to ((i div 10)+1)do
  begin
    f.Read(temp, 10);
    f.Seek(10, soCurrent);
    Memo1.Lines.Add( temp);
  end;
end;

---

Elen   (2007-02-05 16:59:00) [3]

> Ну вот никак. Говорит Exeption: "I don't like it. Memo."
> :)

Не оно героически молчит, проглатывая всякую бяку, которую ему подсовывает неразумный программер, а потом программер удивляется мол чего это у мемо не дает все содержимое, а у мемо в это время Microsoft migraine и в стрингах бяка.

---

iXT   (2007-02-05 16:55:00) [4]

> Начал изучать работу с файлами

Уважаемый, это где же так учат?

> i:=f.Seek(0, soFromEnd);
>  for j:=0 to ((i div 10)+1)do
>    begin
>      f.Read(temp, 10);
>      f.Seek(10, soCurrent);

А что по вашему должно тут происходить?


> Kolan ©   (05.02.07 16:48) [3]

Ну вот никак. Говорит Exeption: "I don't like it. Memo."
:)

---

Kolan   (2007-02-05 16:48:00) [5]

> Memo не любит управляющих символов

Как это не любит? :)

---

Loginov Dmitry   (2007-02-05 16:45:00) [6]

> Подскажите пожалуйста, что не так в этом коде


Да все не так.

---

Elen   (2007-02-05 16:44:00) [7]

> Подскажите пожалуйста, что не так в этом коде (Memo остается
> пустой)

Ну во-первых тип temp не соответствует нужному для этой операции, а во-вторых Memo не любит управляющих символов, наличие коих в екзешках весьма множественное.
Зачем тебе читать экзешки?

---

Наверх