Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизКак подключить внешний файл, так чтоб прога мог показать вам лист Найти похожие ветки
← →
Odil (2003-02-25 08:12) [0]Нашел прогу электронного учебника и хочу разобраться. Но прога не хочет "читать" файль ld.cfg (я не знаю что надо написать в эту файл). Помогите кто может.
листинг здесь:
unit runfrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, checklst;
type
Tfrmrun = class(TForm)
lblessons: TListBox;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure lblessonsDblClick(Sender: TObject);
procedure lblessonsKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmrun: Tfrmrun;
lessonname:string[40];
implementation
uses Mainfrm, lessonfrm;
{$R *.DFM}
type
tconfig=record
name:string[50];
filename:string[40];
end;
var names:array[1..100] of string[40];
procedure loadlesson;
begin
lessonname:=names[frmrun.lblessons.itemindex+1];
frmrun.hide;
frmlesson.show
end;
procedure Tfrmrun.FormClose(Sender: TObject; var Action: TCloseAction);
begin
halt;
end;
procedure Tfrmrun.FormCreate(Sender: TObject);
var f:file of tconfig;
lesson:tconfig;
n:byte;
begin
n:=0;
assignfile(f,"ld.cfg");
reset(f);
while not eof(f) do begin
inc(n);
read(f,lesson);
names[n]:=lesson.filename;
lblessons.Items.Add("Урок "+inttostr(n)+" "+lesson.name);
end;
closefile(f);
end;
procedure Tfrmrun.lblessonsDblClick(Sender: TObject);
begin
loadlesson;
end;
procedure Tfrmrun.lblessonsKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then loadlesson
end;
procedure Tfrmrun.Button2Click(Sender: TObject);
begin
close
end;
procedure Tfrmrun.Button1Click(Sender: TObject);
begin
loadlesson;
end;
end.
сама прога находится здесь: http://canet.narod.ru/ebook.zip
Спосибо.
← →
gek (2003-02-25 08:42) [1]Это файл записей и в него пишется структура
type
tconfig=record
name:string[50];
filename:string[40];
end;
← →
Odil (2003-02-25 09:02) [2]Там не объязательно показать список уроков?
Прога работает с файлами *.les
Если У меня несколько уроков скажем, first.les; second.les то где я должен их перечислить? Или достаточно их разместить в директорию где лежит сама прога.
best regards.
odil
← →
gek (2003-02-25 09:23) [3]Так надо сначала все это дело записать в ld.cfg - это список уроков и ассоциированых с ними файлов
← →
Odil (2003-02-25 09:53) [4]А как??? Вот что меня мучает...
Пожалуйста подскажите. Огромное спосибо.
← →
gek (2003-02-25 10:31) [5]Знаешь, не парься, положи все файлы *.les в какой-нибудь каталог
И потом используй FindFirst FindNext FindClose,
ну и далее извлекай имя файла без расширения и грузи в список
Да и вообще вызывает удивление многие строки кода, но этот
кусок меня убил просто
procedure Tfrmrun.FormClose(Sender: TObject; var Action: TCloseAction);
begin
halt;
end;
← →
Odil (2003-02-25 11:04) [6]Спосибо. Попробую.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c