Нуж помощь при оброшение к файлу

← →
kidm (2006-11-13 05:37) [0]

Короче у меня задача написать справочную по делфи. Я не могу сделать Чтобы из Combobox то есть из спика выброную процедуру выводил информацию на MEMO и при этом при нажатие Button.
Вот примерный код у меня получился:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; GroupBox1: TGroupBox; ComboBox1: TComboBox; Label1: TLabel; RadioButton1: TRadioButton; RadioButton2: TRadioButton; Button1: TButton; procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.RadioButton1Click(Sender: TObject); begin combobox1.Enabled:=True; combobox1.SetFocus; end; procedure TForm1.RadioButton2Click(Sender: TObject); begin Combobox1.Enabled:=false; end; procedure TForm1.Button1Click(Sender: TObject); type Typov = (slo,cpe,pro); Tproc=record Mat:string[20]; dat:string[40]; log:string[80]; obh:Typov; end; var f: file of Tproc; rec: Tproc; n: integer; st: string[80]; begin name:=("процедуры.txt"); AssignFile(f,name); {$I-} Reset(f); {$I-} if Ioresult <> 0 then begin Showmessage("Ошибка не найден файл"); Exit; end; If Radiobutton1.Checked then Memo1.Lines.Add("***"+ combobox1.Text+"***"); n:=0; Memo1.Clear; while not EOF(f) do begin read(f, rec); if Radiobutton2.Checked or (rec.mat=Combobox1.Text) then Begin n:=n+1; st:=rec.log+", "+ rec.dat; st:=st+", "+rec.Mat; case rec.obh of slo: st:=st+", простои"; cpe: st:=st+", средний"; pro: st:=st+", сложные"; end; memo1.Lines.Add(st); end; end; Closefile(f); if n=0 then Showmessage("Нет не чего на ваш запрос"); end; end.

← →
Gero © (2006-11-13 08:51) [1]

> [0] kidm (13.11.06 05:37)
> Короче у меня задача написать справочную по делфи.

Для начала неплохо бы почитать существующую.

← →
KilkennyCat © (2006-11-13 10:52) [2]

орех! :)

← →
kidm (2006-11-13 11:45) [3]

Ладно попробуй обьеснить У меня В списке то есть Combobox на ходятся процеду например Abort и т.д. у меня их около 15 процедур. Ну вот я выбираю процедуру в Combobox например Abort после этого при нажатие клавиши "ОК" то есть Button в МЕМО у меня должно высветится описание процедуры ка в напримере Abort. Суть в созданой мной теме в том что я не могу понять почему у меня из файла "процедуры.txt" как написано в коде не выдает информаци в МЕМО.

← →
KilkennyCat © (2006-11-13 11:48) [4]

> Ну вот я выбираю процедуру в Combobox например Abort после
> этого при нажатие клавиши "ОК"

двойное действие

> я не могу понять почему у меня из файла "процедуры.txt"
> как написано в коде не выдает информаци в МЕМО.

наверное, ее там нет.

← →
Anatoly Podgoretsky © (2006-11-13 14:04) [5]

> KilkennyCat (13.11.2006 11:48:04) [4]

> наверное, ее там нет.

Может и есть, но барабашка.

--

← →
Игорь Шевченко © (2006-11-13 14:24) [6]

Тут в одной из соседних веток кто-то говорил, что разговоры о неграмотности не имеют почвы под собой :)

← →
Kerk © (2006-11-13 14:25) [7]

> [6] Игорь Шевченко © (13.11.06 14:24)

Я в одной из старых веток говорил, что аналоги автора, кто постарше, просто не смогли освоить комп и выбраться на форум.

← →
Игорь Шевченко © (2006-11-13 14:54) [8]

Kerk © (13.11.06 14:25) [7]

Да, у них было трудное детство, им можно посочувствовать. Но у современных-то детство счастливее некуда - что же мешает грамотой-то овладеть ?

← →
Игорь Шевченко © (2006-11-13 14:55) [9]

Удалено модератором
Примечание: Дубль

← →
clickmaker © (2006-11-13 15:08) [10]

> у современных-то детство счастливее некуда - что же мешает
> грамотой-то овладеть ?

избыток щастья, видимо. Не до букваря тут

← →
kidm (2006-11-13 16:55) [11]

Ну сьехали с темы

> KilkennyCat © (13.11.06 11:48) [4]
> > Ну вот я выбираю процедуру в Combobox например Abort после
>
> > этого при нажатие клавиши "ОК"
>
> двойное действие
>
>
> > я не могу понять почему у меня из файла "процедуры.txt"
>
> > как написано в коде не выдает информаци в МЕМО.
>
>
> наверное, ее там нет.

я использую функцию
name:=("процедуры.txt");
AssignFile(f,name);
То есть она значит что файл должен лежать там где и прога.
А к стате что писать в фаиле кроме описание то есть нажна какая нибудь ссылка на процедуру.

← →
KilkennyCat © (2006-11-13 17:04) [12]

ничего не понял.

Как бы сделал я.
Создал бы один единственный файл.
разделы бы обозначил уникально, например {#} Процедуры
и искал бы от раздела к разделу и грузил бы.

← →
clickmaker © (2006-11-13 17:11) [13]

> name:=("процедуры.txt");

*** ушел в глубокую медитацию ***

← →
Anatoly Podgoretsky © (2006-11-13 18:03) [14]

> kidm (13.11.2006 16:55:11) [11]

> То есть она значит что файл должен лежать там где и прога.

Это ты так считаешь, но это к действительности не имеет отношения.

← →
oldman © (2006-11-13 18:10) [15]

> Короче у меня задача написать справочную по делфи.

Мне тоже пытались такой курсач на 2-м курсе втюхать.
Я долго ругался с преподом на тему "на хрена, етсь же хелп".
Препод отстал.

← →
kidm (2006-11-13 19:09) [16]

НУ и мне дали такой курсач вот сижу голову ломаю как что и где.

← →
Anatoly Podgoretsky © (2006-11-13 19:16) [17]

> kidm (13.11.2006 19:09:16) [16]

80 WMZ спасут отца русской демократии.

← →
KilkennyCat © (2006-11-13 19:23) [18]

← →
k2 © (2006-11-13 19:31) [19]

73 и ведро домашних пирожков с картошкой

← →
Ketmar © (2006-11-13 19:32) [20]

98 и два ящика тёмного пива.

← →
kidm (2006-11-13 19:34) [21]

ну вы че херней занимаетесь лучше бы совет дали бы

"не говорите чем нам заняться и мы не скажем куда вам идти"
както так в таком разрезе

>[21] kidm 13-Nov-2006, 19:34
>ну вы че херней занимаетесь лучше бы совет дали бы
тебе цену указали? ты кому-то заплатил? нет? тогда не возмущайся. или плати, или молчи.

← →
kidm (2006-11-13 19:40) [24]

Да лучше я скоришем сделаю прогу бесплатно

>[24] kidm 13-Nov-2006, 19:40
>Да лучше я скоришем сделаю прогу бесплатно
ну так иди отсюда к "скоришу". делай.

> k2 (13.11.2006 19:31:19) [19]

Ну начали демпинг.

> kidm (13.11.2006 19:40:24) [24]

Вот с этого и надо было начинать, жаба она великая штука.

Си равно ни понил как быть с виликим руским изыком:)

>[28] Alarm(c) 13-Nov-2006, 20:09
упразднить за ненадобностью. пацаны всё равно не осиливают.

> k2

выходи за меня замуж, я тебе каждую неделю буду печь ведро пирожков. и картошки.

Нуж помощь при оброшение к файлу Найти похожие ветки