Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

Проблема с TList.   Найти похожие ветки 

 
mm0   (2003-07-05 00:24) [0]

Какой код нужен для того чтобы, например запись Rec
добавить,заменить в TL:TList?
Rec=record
a,b:Integer;
s:string;
end;


 
default   (2003-07-05 01:25) [1]

если TList - это класс, обслуживающий массив указателей, стало быть нужно добавить адрес записи данного типа


 
SilverAlex   (2003-07-05 01:41) [2]

type
PRec=^Trec;
TRec=record
a,b:Integer;
s:string;
end;
procedure AddOrEdit(fA,fB: Integer;fStr: String;
aItem: Integer; aEdit: Boolean=false);
var
aRec:PRec;
begin

new(aRec);
try
if aEdit then
aRec:=List.Items[aItem]; //Или другой способ поиска
with arec^ do
begin
a:=fA;
b:=fB ;
s:=fStr;
end;
if not aEdit then
List.Add(arec)
finally
Dispose(arec);
end;
end

Если я правильно понял.



Страницы: 1 вся ветка

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.009 c
14-55797
Mihey
2003-06-30 22:00
2003.07.17
Зацените, пожалуйста форум.


1-55545
Diamond Dog
2003-07-05 18:59
2003.07.17
Проблемы с поиском Файлов


1-55593
Urvin
2003-07-02 17:26
2003.07.17
Покраска Кнопок


1-55524
Tahion2
2003-07-03 07:08
2003.07.17
Чтение из реестра под гостем в ХР


14-55722
r0n1n
2003-06-30 00:15
2003.07.17
Чат





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский