Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Чтение строки из файла и помещение её в 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
4-1094866787
Александр1
2004-09-11 05:39
2004.10.24
Использование файла


6-1092656588
Hereticsoul
2004-08-16 15:43
2004.10.24
Idftp через proxy


3-1095930591
Denis
2004-09-23 13:09
2004.10.24
Не могу записать имя таблицы латинскими сомволами


4-1095686418
Lord de Mon
2004-09-20 17:20
2004.10.24
Проверка на Stand By


1-1097562547
Артемий
2004-10-12 10:29
2004.10.24
Проблема с запуском Delphi 7(лицензия)