Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Вниз

Структура   Найти похожие ветки 

 
asdf   (2008-01-17 13:34) [0]

Как лучше сделать обработку след. данных:

Есть датасет. Из него вытаскивается поле(FieldForPars), передается в класс(MyParser, скажем), который рызбирает эту строку на сост. эл-ты. MyParser загоняет все сост. поля в запись(ParsRec). В FieldForPars может содержаться нес-ко эл-тов для анализа, т.е. надо рез-т запихнуть в несколько записей Pars, поэтому я все это дело загоняю в указатели, а указатели в TList, который передается в метод Parse. Получается следующее:
 while not DataSetPars.Eof do
 begin
    MyParser.Parse(DataSetPars.FieldByName("FieldForPars").AsString, List);
    DataSetPars.Next;
 end;

 // что-то делаю с данными List
 //а вот следующее, как мне кажется дрянь
 for i := Pred(List.Count) downto  do
    Dispose(PParseRec(List[i]));

 List.Clear;

как сделать-то, чтоб указатели в одном месте выделялись и освобождались?


 
asdf   (2008-01-17 14:15) [1]

Ладно, а как сделать программу Hello World?


 
ketmar ©   (2008-01-17 14:22) [2]

а что, унаследовать/агрегировать TList и сделать всё «в одном месте» — в своём классе — никак не выходит?


 
Dennis I. Komarov ©   (2008-01-17 14:24) [3]

> [1] asdf   (17.01.08 14:15)

begin
 WriteLn("Hello World");
end;
:)


 
asdf   (2008-01-17 14:33) [4]


> ketmar ©   (17.01.08 14:22) [2]

Ну да, точно.
спс



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

Форум: "Начинающим";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.046 c
15-1199980335
anton773
2008-01-10 18:52
2008.02.10
поиск файлов


2-1200326503
Windows.Error[41].Generate;
2008-01-14 19:01
2008.02.10
Скопировать весь текст из memo


15-1200054385
Ega23
2008-01-11 15:26
2008.02.10
Надо работать с UDP


1-1193828428
vamp_avp
2007-10-31 14:00
2008.02.10
ping tracert


15-1199970591
@!!ex
2008-01-10 16:09
2008.02.10
Помогите доделать тир.





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