Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.57 MB
Время: 0.039 c
14-17382
DAC
2003-02-18 14:20
2003.03.06
Часто задаваемые вопросы / Часто используемые ответы


14-17341
Феликс
2003-02-16 23:46
2003.03.06
Самооборона


1-17003
Артём В.
2003-02-24 23:25
2003.03.06
Нужна поддержка скинов


14-17333
Aga
2003-02-16 09:59
2003.03.06
Отчество


6-17224
Spartak
2003-01-15 14:22
2003.03.06
Привет мастера. как вам





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский