Проблема кроется в считывании данных из текстового файла (*.TXT), где предпологаемые поля данных разделены точкой с запятой ";" и вставкой в DataSet.
Как реализовать считование до точки с запятой и вставкой в поле1 следующию секцию в поле2 и так далее до конца строки в текстовом файле, после перейти к следуюшей строке и продолжить тоже самое до конца всего файла...
Я начаю так...
| Код |
procedure TForm1.ImportbasefromTXT1Click(Sender: TObject);
var
i: Integer;
t: TextFile;
s, l: string;
FullFileName : string;
begin
OpenDialog3.FileName := '*.TXT';
if OpenDialog3.Execute then begin
FullFileName := OpenDialog3.FileName;
if FullFileName = '' then Exit else
s := InputBox('What will be a Separator?', 'Separator: . , ; : Tab Sps', ';');
if s = '' then Exit else
AssignFile(t, OpenDialog3.FileName);
Read(t);
// ReadLn(t, l);
CloseFile(t);
end;
end;
|
|
Уже видел СПАСИБО!!!