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

Вниз

Как подключить внешний файл, так чтоб прога мог показать вам лист   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
1-17046
Димон1
2003-02-25 13:03
2003.03.06
TControl.Color


1-17011
kex86
2003-02-25 03:03
2003.03.06
VK_LButton


1-17104
Opera
2003-02-26 01:34
2003.03.06
Едиты и текст


9-16843
Ach_Den
2002-09-13 10:14
2003.03.06
Алгоритм движения воды?


3-16919
Chainik2003
2003-02-15 19:00
2003.03.06
Выборка из нескольких таблиц