запись в БД

[alexeybest]

Здравствуйте.
Вопрос мой про чтение из txt файла в ADo table.
Есть текстовой файл вида
Номер:12
ФИО:Иванов Иван Иванович
Номер паспорта:52342
@@@
и т.д.

Хотел передать оттуда информацию в Adotable

Обрабатываю строки при чтении из файла:

  for i:=1 to length(stroka) do    
      begin
      if stroka[i]=':'   then begin
             temp1:=copy(stroka,1,i-1); 
             break;
        end;
      
      end;
       for i:=1 to length(stroka) do    
      begin
          if stroka[i]=':'  then begin
              temp2:=copy(stroka,i+1,length(stroka)); 
              break;
        end;
      end;
 
     Listbox3.Items.Add(temp1);
     Listbox4.Items.Add(temp2);
  
    Adotable6.TableName:='Table1';
    Adotable6.First;
    ADoTable6.Insert;

    Adotable6.FieldByName('Номер').AsString:=Edit11.Text;
    Adotable6.FieldByName('ФИО').AsString:=Edit12.Text;

Пока работаю с 1 записью. Мне хочется узнать - как использовать в коде разделитель между записями (разделитель @@@).
Буду очень признателен за помощь.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Dark_Spirit]

то есть тебе нужно, чтобы обрабатывались все строки из файла а не одна?

тогда:

var f:textfile; 
     stroka:string;

begin
  assignfile(f, <имя_файла>);
  reset(f)
  while not eof(f) do
   begin
    readln(f, stroka);
    if strkoa<>'@@@'
     then
      begin
       {твой код для обработки строки и записи в таблицу};
      end;
  end;

[SERG1980]

Ну можно считать файл в стринглист и в цикле просмотреть строчки
и по условиям выдирать ФИО номер
пример

var SL.TStringList;
     fam,number:string;
.....
SL:=TStingList.Create;
SL.LoadFromFile('указываем путь');
Adotable6.First;
for i=0 to SL.Count-1 do
begin
 if Pos ('ФИО',SL[i])>0 then fam:=....//берём имя
 if Pos ('Номер',SL[i])>0 then number:=...//берём номер паспорта 
 if Pos ('@@@',SL[i])>0 then
 begin
  Adotable6.Insert;
  Adotable6.FieldByName('Номер').AsString:=number;
  Adotable6.FieldByName('ФИО').AsString:=fam;
  Adotable6.Post;
 end;
end;