Добавление данных в БД

[vongola]

Работаю в Делфи XE2. БД имею access'овкую , работаю через Ado.
Из txt файла занести данные в БД с помощью выбора файла, то есть с использованием OPenDialog! . Данные имею вид:
CALLSIGN: RK3ZWD
CATEGORY-OPERATOR: MULTI-OP
CATEGORY-BAND: 160M-80M-40M
CATEGORY-POWER: HIGH
CATEGORY-OVERLAY: A2
LOCATION: KO81
CLUB: Станция юных техников г.Губкин
CREATED-BY: ua1aaf software
EMAIL: rk3zwd@rambler.ru
NAME: Чичикалов С В
ADDRESS: аб ящ 1199
ADDRESS: Старый Оскол 309518
Мне нужно занести только то, что после двоеточий!

[evg_m]

r:=TstringList.Create;
r.LoadFromFile(...............);
for j:=0 to r.count-1 do begin
  s:=r.strings[j];
  if copy(s,1,9)='CALLSING:' then callsing:=copy(s,9, length(s));
.....................
 if .// как только запись готова (получены все параметры) или началась новая запись 
    then begin //выполняем сбос в БД 
       .............
    end;
end;

[Egenysh]

Сообщение от evg_m

 if .// как только запись готова (получены все параметры) или началась новая запись 
    then begin //выполняем сбос в БД 
       .............
    end;
end;

Сброс в БД через SQL запрос?
Потому что мне нужно именно так!
Простите, если сразу не уточнила!

[evg_m]

Сброс в БД через SQL запрос?
Потому что мне нужно именно так!

Как хотите так и делайте.
я дал только приблизительную схему ( набор методов и функций которыми стал бы пользоваться я ) для разбора файла.

Берете компонент c помощью которого хотите (будете) сбрасывать.
Пишете для него SQL запрос с параметрами примерно так.

insert mytable (CALLSIGN, ....) values (:cals, .... )

как именно ( в каком из полей компонента) зависит от конкретного компонента, который вы выберете.
Все параметры должны начинаться с ":"
делать это можно и даже нужно до начала цикла.

в цикле ( можно сразу при разборе ) заполняете параметры.

if copy(s,1,9)='CALLSIGN:' then  ds.Parameters.Parambyname('cals').value:= copy(s,9, length(s));

А вот здесь это самое ":" указывать не надо. И тоже могут быть варианты названий в зависимости от компонента.
как только понимаете что все готово выполняете запрос
нечто (также возможны варианты) вроде этого

ds.ExecSQL;

а можно собирать данные в переменные

if copy(s,1,9)='CALLSING:' then callsing:=copy(s,9, length(s));

а потом как все будет готово заполнить параметры. (и при этом проверить все ли мы получили)

if  ...  then begin //пора писать
   if callsing<>'' then 
      ds.parameters.paramsbyname('cals').value:=callsing
   else 
       //а где же наши данные? 
   .........
   ds.ExecSQL; //как все проверили и заполнили
end;