Sergey_Demchuk
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Поскольку в Дельфи 7 функции posex не оказалось, я вот сделал так
AssignFile(f, 'dependencies.txt');
Reset(f); // открыть для чтения
// чтение из файла
arr:=0; arrLength:=100; SetLength(myarr,100);
while not EOF(f) do
begin
readln(f, buf); // прочитать строку из файла
myarr[arr]:=buf;
if (arrLength-arr)<=1 then
begin
SetLength(myarr, arrLength+100);
arrLength:=arrLength+100;
end;
arr:=arr+1;
PP1:=Copy(buf,0,Pos(',',buf)-1);
PP2:=Copy(buf,SymPos(buf,1)+1,SymPos(buf,2)-SymPos(buf,1)-1);
PP3:=Copy(buf,SymPos(buf,2)+1,Length(buf)-SymPos(buf,2));
Dependencies(PP1,PP2,StrToInt(PP3));
// ShowMessage(PP2);
end;
CloseFile(f); // закрыть файл
где функция SymPos выглядит так (заменяет posex)
function SymPos(str : String; posit:Integer) : integer;
var
i : integer;
j : integer;
begin
result := 0;
j := 0;
for i := 0 to Length(str) do
if str[i] = ',' then begin
inc(j);
if j = posit then begin
result := i;
break;
end;
end;
end;
Правда выполнение сего кода с занесением в базу ( Dependencies(PP1,PP2,StrToInt(PP3)); ) заняло аж минуту или более даже, многовато... |
Или (что мне более нравится так как один фиг юзается БД) - загнать все эти параметры из текстового файла в таблицу - тогда скорость работы увеличится. Один раз отпарсить той же Дельфи текстовый файл, чтобы загнать в таблицу и потом наслаждаться скоростью.
