Помогите разобраться с record!!!

← →
mfender (2003-08-23 12:25) [0]

Господа.
У меня есть такая конструкция:

TCb = record
code: String;
nam: String;
end;

Все просто и ясно. Беда случается, когда я ее пытаюсь заполнить вторично и третично, и т.д. Как бы мне ее отчистить перед повторным употреблением?

← →
Palladin (2003-08-23 12:29) [1]

Ты орешник читал? Там есть изумительный орех про очищение переменной.

← →
mfender (2003-08-23 12:34) [2]

Спасибо, почитаю.

← →
mfender (2003-08-23 12:41) [3]

Вобщем неплохо (это я про орешник). Но там ситуация другая.
А мне-то что делать?

← →
Palladin (2003-08-23 12:42) [4]

Ну вот ты спросил, и написал record. Мне для оказания тебе помощи ну абсолютно не достаточно приведенной информации. Почему то я когда работаю с подобным у меня никаких проблем не возникает. А теперь подумай головой и приведи код который не работает. Как же я тебе помогу если я не вижу его?
Сумашедствие какое то... почему бы не попробовать ответить на свой вопрос перед тем как задать его...
"У меня ничего не работает. Помогите мне!" - Вот сиди и думай в чем тут проблема...

← →
Anatoly Podgoretsky (2003-08-23 12:46) [5]

Известно в чем
Но для начал пусть попробует рассказать, что значит очистить тип.

← →
mfender (2003-08-23 12:51) [6]

Эта процедура заполняет комбо-бох списком и одновременно пресловутую запись, т.е. IndFld - идентификатор чего-то, TextFld - то, что написано в выпадающем списке комбо-бокса. Cb - сам комбо-бокс, Tab - таблица, из которой берем данные.

type
TCb = record
code: String;
nam: String;
end;

procedure RecComboLoadOnDB (const Tab: TTable; Rec: Tcb;
IndFld, TextFld: TStringField; Cb: TComboBox);
begin
Tab.Open;
Tab.First;
First:=TextFld.AsString;//Это первая строчка, которую потом надо показать в комбо-боксе после заполнения

while not Tab.Eof do
begin
Rec.code:=IndFld.AsString;
Rec.nam:=TextFld.AsString;
Cb.Items.Add(TextFld.AsString);
Tab.Next;
end;
Cb.Text:=First;
end;

Эта процедура заполняет...

Блин! Забыл в начале Cb.Items.Clear поставить!!!
Пока писал, сообразил. Спасибо за добрый совет.

← →
mfender (2003-08-23 13:11) [7]

Спасибо Anatoly Podgoretsky, надоумил. Все переделал и все дивно заработало.
Тупею поманеньку. Уже и глаз не тот... Ко всей этой беде еще и массив этих записей надо было сделать.... Тупею...

Помогите разобраться с record!!! Найти похожие ветки