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

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

Чтение строки из файла и помещение её в TEdit

CoolMan ©   (2004-10-10 16:53:00) 

Здраствуйте, уважаемые мастера.
Помогите разобраться:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

var

 F: TextFile;
 S: string;
begin
   AssignFile(F,'D:\test.txt');         { File selected in dialog }
   Readln(F, S);                        { Read first line of file }
   Edit1.Text :=S;                     { Put string in a TEdit control }
   CloseFile(F);
end;

end.

Что не так? Ругается на Edit1.Text :=S;

Спасибо

---

CoolMan   (2004-10-11 09:42:00) [1]

2 Алхимик

Спасибо большое

---

Алхимик   (2004-10-10 18:48:00) [2]

Модуль имеет следующую структуру:

Unit <имя>;
interface
<интерфейсная часть>

implementation
<выполняемая часть>

initialization
<блок инициирования>

finalization
<блок завершения>

end.

Раздел Implementation предназначен для описания внутренних, т.е. доступных к использованию только внутри данного модуля компонент: типов, констант, переменных, процедури функций.
Отсюда ошибка номер раз: нет описания какой нить процедуры - обработчика события. Таким событием, судя по контексту, вполне может быть OnShow.
Создадим обработчик события OnShow, который будет вызываться при каждом показе формы:
procedure TForm1.FormShow(Sender: TObject);
var
F: TextFile;
S: string;
begin
  AssignFile(F,'D:\test.txt');         { File selected in dialog }
  Readln(F, S);                        { Read first line of file }
  Edit1.Text :=S;                     { Put string in a TEdit control }
  CloseFile(F);
end;

Далее. Когда ты копировал этот кусок кода из Help, то пропустил строку Reset(f). (Хорошо что вообще в Help заглянул).

procedure TForm1.FormShow(Sender: TObject);
var
F: TextFile;
S: string;
begin
  AssignFile(F,'D:\test.txt');         { File selected in dialog }
  Reset(f);
  Readln(F, S);                        { Read first line of file }
  Edit1.Text :=S;                     { Put string in a TEdit control }
  CloseFile(F);
end;

---

CoolMan   (2004-10-10 17:56:00) [3]

Конкретней плиз

---

GuAV   (2004-10-10 17:16:00) [4]

Ну да, а где там Edit1 ? он же не глобальная, а всего лишь поле класса.

---

Palladin   (2004-10-10 17:13:00) [5]

угу... а на то что точка ожидалась вместо запятой там пониже ошибки нет? учи синтаксис паскаля, парень, а не занимайся C&P

---

Наверх