Тогда мой код надо подредактировать
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
f,s:tstringlist;
i:integer;
dip1,dip2:ttime;
begin
if not opendialog1.Execute then exit;
F:=tstringlist.Create;
s:=tstringlist.Create;
f.LoadFromFile(opendialog1.FileName);
s.Delimiter:=' ';
for i:=0 to f.Count-1 do
begin
s.Clear;
s.DelimitedText:=f[i];
if s.Count<>6 then continue;
if s[0]='И' then continue;
if (strtoint(s[5])>950000 )and(strtoint(s[5])<950999)then dip1:=dip1+strtotime(s[3]);
if (strtoint(s[5])>250000 )and(strtoint(s[5])<250999)then dip2:=dip2+strtotime(s[3]);
end;
s.Free;
f.Free;
memo1.Lines.Add('dip1= '+timetostr(dip1)+' dip2= '+timetostr(dip2));
end;
dip1 dip2 - 2 диапазона 6-ого столбца соответсвено