Текущий архив: 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.016 c