заполнение БД данными из текстового файла

← →
andey (2001-12-11 20:09) [10]

Я тоже как-то думал но абстрактно.
текст разбивал на ячейки.
Вот Функция:
Function GetWord(var S: String): String;
const
Letters: set of Char = ["a".."z", "A".."z", "А".."я", "0".."9"];
begin
Result := "";
while (S<> "") and not (S[1] in Letters) do
Delete(S,1,1);
while (S<> "") and (S[1] in Letters) do
begin
Result:=Result+S[1];
Delete(s,1,1)
end;
end; //GetWord Выделение слова из строки

Загоняй текст в Мемо и читай по строчно
обрабатывай этой функцией и раскидывай по полям.
Скинул свою рогу попробуй.

заполнение БД данными из текстового файла Найти похожие ветки