перевод таблицы из текстового файла в таблицу paradox7.0

[ГОСЕАН]

не могу нигде найти пример перевода таблицы из текстового файла (разделены пробелами) в существующую таблицу Paradox 7.0 с заменой данных. По аналогии из Excel в талицу SQL Server2000

[Pitbull]

думаю, что это сложновато, хотя ничего невозможного нет.... Одно дело, если в каждом поле по одному слову, а если не один пробел , а 2..... Просто в ЕXcel там все просто: есть поля(столбцы и строки...) ....А тутсложная ситуация...
Если надумаешь, то выкинь на сайт...ок?

[ГОСЕАН]

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

думаю, что это сложновато, хотя ничего невозможного нет.... Одно дело, если в каждом поле по одному слову, а если не один пробел , а 2..... Просто в ЕXcel там все просто: есть поля(столбцы и строки...) ....А тутсложная ситуация...
Если надумаешь, то выкинь на сайт...ок?

а я то думал, что вы все можете

[_SERGEYX_]

Через вот эту функцию разбивай циклично строку на подстроки с использованием разделителя

function Tokenize(Str: WideString; Delimiter: string): TStringList;
var
  tmpStrList: TStringList;
  tmpString, tmpVal: WideString;
  DelimPos: LongInt;
begin
  tmpStrList := TStringList.Create;
  TmpString := Str;
  DelimPos := 1;
  while DelimPos > 0 do
  begin
    DelimPos := LastDelimiter(Delimiter, TmpString);
    tmpVal := Copy(TmpString, DelimPos + 1, Length(TmpString));
    if tmpVal <> '' then
      tmpStrList.Add(UpperCase(tmpVal));
    Delete(TmpString, DelimPos, Length(TmpString));
  end;
  Tokenize := tmpStrList;
end;

... и далее все понятно...
for i:=0 to Stringlist.RecordCount do
begin
Table.Edit;
Table.FieldByName('.......').asstri ng:= StringList[i]
.... и так далее

[Pitbull]

xxx mn_fuzka xxx

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

Через вот эту функцию разбивай циклично строку на подстроки с использованием разделителя

function Tokenize(Str: WideString; Delimiter: string): TStringList;
var
  tmpStrList: TStringList;
  tmpString, tmpVal: WideString;
  DelimPos: LongInt;
begin
  tmpStrList := TStringList.Create;
  TmpString := Str;
  DelimPos := 1;
  while DelimPos > 0 do
  begin
    DelimPos := LastDelimiter(Delimiter, TmpString);
    tmpVal := Copy(TmpString, DelimPos + 1, Length(TmpString));
    if tmpVal <> '' then
      tmpStrList.Add(UpperCase(tmpVal));
    Delete(TmpString, DelimPos, Length(TmpString));
  end;
  Tokenize := tmpStrList;
end;

... и далее все понятно...
for i:=0 to Stringlist.RecordCount do
begin
Table.Edit;
Table.FieldByName('.......').asstri ng:= StringList[i]
.... и так далее

Ну так это если 1 пробел вариант.....
xx mn_fuzka xx