Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Вниз

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

← →
CoolMan ©   (2004-10-10 16:53) [0]

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

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;

Спасибо

---

← →
Palladin ©   (2004-10-10 17:13) [1]

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

---

← →
GuAV ©   (2004-10-10 17:16) [2]

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

---

← →
CoolMan ©   (2004-10-10 17:56) [3]

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

---

← →
Алхимик ©   (2004-10-10 18:48) [4]

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

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-11 09:42) [5]

2 Алхимик

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.037 c