Всем привет!

Довольно долго мучаюсь над такой задачей:
Есть TabControl, на нем 4 Edit`a
-День недели
-Время начала инета
-Время конца инета
-цена

и такой тип:

Код

type TPTarif = ^TTarif;  TTarif = record   day: integer; //DEH HEDELI   timeON: string[14]; // BPEM? ??????   timeOFF: String[14]; // BPEMA KOHCA   Cena: real; // CENA ZA MINUTU   next: TPTarif; end;

По кнопочке "Добавить" вызовется форма с запросом:
день недели(число)
Время начала(время в Едите)
Время конца(как и вр.начала)
Цена(real)
и кнопка "Ок"

По кнопке Ок надо добавить эти елементы в динамический список и создать вкладку на TabControl`e.
А при щелчке на какой либо вкладке, выдать в компоненты на ней соответствующие значения дня, цены, времени.

Если можно, то дайте простенький пример! Сколько книг пролистал, а ничего не нашел!

Примерно так:

Код

PTarif = ^TTarif;  TTarif = record    day: integer;    timeON: string[14];    timeOFF: string[14];    Cena: real;  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin  FTarifList := TList.Create; end; //Этот код можешь перенести в появляющуюся форму procedure TForm1.Button1Click(Sender: TObject); var  NewTarif: PTarif; begin  GetMem(NewTarif, SizeOf(TTarif));  NewTarif^.day := StrToIntDef(edDay.Text, 0);  NewTarif^.timeON := edTimeOn.Text;  NewTarif^.timeOFF := edTimeOff.Text;  NewTarif^.Cena := StrToFloatDef(edCena.Text, 0.0);  FTarifList.Add(NewTarif);  TabControl1.Tabs.Add(Format('Tarif %d', [FTarifList.Count - 1])); end; procedure TForm1.TabControl1Change(Sender: TObject); var  CurrentTarif: PTarif; begin  CurrentTarif := FTarifList[TabControl1.TabIndex];  edCurrentDay.Text := IntToStr(CurrentTarif^.Day);  edCurrentTimeOn.Text := CurrentTarif^.timeON;  edCurrentTimeOff.Text := CurrentTarif^.timeOFF;  edCurrentCena.Text := FloatToStr(CurrentTarif^.Cena); end; ...

Это сообщение отредактировал(а) <Spawn> - 13.2.2005, 17:14

Спасибо ОГРОМНОЕ! Ты меня просто спас

Только еще вот что смущает:

Код

//Этот код можешь перенести в появляющуюся форму procedure TForm1.Button1Click(Sender: TObject); var NewTarif: PTarif; begin

NewTarif: PTarif; - Это и не работает, т.к. тип описан в первой форме.
Надо-ли его и во второй форме описать?

Сделай так:

Код

procedure TForm1.Button1Click(Sender: TObject); var NewTarif: PTarif; begin Form2.ShowModal; //Или if Form2.ShowModal = mrOk then begin ... end;если ты проверяешь результат ее активизации GetMem(NewTarif, SizeOf(TTarif)); NewTarif^.day := StrToIntDef(Form2.edDay.Text, 0); NewTarif^.timeON := Form2.edTimeOn.Text; NewTarif^.timeOFF := Form2.edTimeOff.Text; NewTarif^.Cena := StrToFloatDef(Form2.edCena.Text, 0.0); FTarifList.Add(NewTarif); TabControl1.Tabs.Add(Format('Tarif %d', [FTarifList.Count - 1])); end;

Это сообщение отредактировал(а) <Spawn> - 13.2.2005, 20:45

Ага! Спасибо большое!