Запись данных из txt в DBGride

[medved_program]

Доброго времени суток, столкнулся с проблемой при переносе данных и txt файла в таблицу DBGride, добавляется лишь первый столбец.
вот листинг

PHP код:

procedure TFormDisp.Button1Click(Sender: TObject);
var
f:textFile;
s,sum:string;
begin

While not DataModule1.Disp.Eof do
DataModule1.Disp.Delete;
AssignFile(f,'DispData.txt');
reset(f);
While not eof (f) do begin
Readln(f,s);
if pos('|',s)<>0 then
begin

DataModule1.Disp.Insert;
DataModule1.Disp.Fields[1].AsString:=Copy(s,1,pos('|',s)-1);
DataModule1.Disp.Fields[2].AsString:=Copy(s,1,pos('|',s)-1);
DataModule1.Disp.Fields[3].AsString:=Copy(s,1,pos('|',s)-1);
DataModule1.Disp.Fields[4].AsString:=Copy(s,1,pos('|',s)-1);
DataModule1.Disp.Fields[5].AsInteger:=StrToInt(copy(s,pos('|',s)+1, length(s)-pos('|',s)+1));

DataModule1.Disp.Post;
end;
end;
closeFile(f);

end;

end. 


[Аватар]

Нет ни какой проблемы, сам же и добавляешь одно и то же. Можно удалять каждый выдернутый кусок текста из строки после заполнения поля. Можно PosEx воспользоваться

[kropotkina-alice]

PosEx(...)

[medved_program]

мне удалять нельзя, необходимо просто брать данные и заносить в таблицу

такой функции в delphi 7 у меня нету.

[Аватар]

нету

unit StrUtils

мне удалять нельзя

Кто-то запретил?

[medved_program]

нет, но у меня данные обновляются при помощи данного файла, т.е. при обновлении все данные из таблицы удаляются, а после добавляются снова и вместе со старыми, будут присутствовать и новые данные,
P.S. Ваш способ тоже подходит, но его мне будет долго и трудно реализовать

[Аватар]

Вот пример с PosEx

  s:='abc|jjjj|cccccc|12345';
  i:=0;
  repeat
    Inc(i);
    j:=PosEx('|',s,i);
    if j=0 then Memo1.Lines.Add(Copy(s,i,Length(s)))
           else Memo1.Lines.Add(Copy(s,i,j-i));
    i:=j;
  until i=0;

Можно и сразу с помощью JET OLEDB такой текстовый файл в датасет засунуть

[medved_program]

спасибо за код, сейчас попробую, что-нибудь сообразить

[medved_program]

нет, у меня delphi не знает команды PosEx

[Аватар]

А почитать внимательно пост #5?