|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Tstringlist - загрузка строк
Прошу помощи. Сразу скажу, что у меня ниче не получилось, постоянно при компиляции разного рода ошибки.
Аля [Error] Unit1.pas(31): Undeclared identifier: 'Edit1' [Error] Unit1.pas(31): Missing operator or semicolon [Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas' Ну или другие... В общем я нефигово разозлился к вечеру. Так вот, мне нужна для примера программа.В которой 3 кнопки и 1 Edit.Так же в папке с исполняемым файлом должен быть тхт документ. При нажатии на кнопку со своим номерем в поле edit должна загружаться соответствующая строка из документа. Буду безумно благодарен за код. |
#2
|
||||
|
||||
Отсутствует Edit1.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Цитата:
|
#4
|
|||
|
|||
Возможно, у Вас процедура требующая Эдит1 находится в другом модуле.
Попробуйте обратится к эдиту имя_формы.Эдит1 |
#5
|
||||
|
||||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure ButtonsClick(Sender: TObject); private { Private declarations } AStrings: TStrings; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin AStrings:=TStringList.Create; AStrings.LoadFromFile('closeschool.txt'); // загрузим файл Button1.Tag:=0; // можно в инспекторе объектов задать Button2.Tag:=1; // можно в инспекторе объектов задать Button3.Tag:=2; // можно в инспекторе объектов задать end; procedure TForm1.FormDestroy(Sender: TObject); begin AStrings.Free; end; procedure TForm1.ButtonsClick(Sender: TObject); begin Edit1.Text:=AStrings[TButton(Sender).Tag]; end; end. http://data.cod.ru/99141 Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Цитата:
|
#7
|
|||
|
|||
черт, на твоих исходниках все идет, намлок, благодарю!
|