Определить последнее одиннадцатое число в строчке из файла

[zzzetka]

Ребята, Помогите с очередной проблемой.... Текстовый файл состоит из 11 столбцов и очень-очень много строк, я их даже посчитать с помощью Excel-я не могу. В строках и столбцах вещественные числа. Для читывания этого фала я не могу задать двумерный массив. А вообще задание состоит в следующем. Пользователь задает определенные значения (первые 10), по которым надо определить последнее одиннадцатое число в этой строчке! т.е. нужно сравнить первое число в строчке с задаваемым, если совпадает, то второе и т.д. А если не совпадает, то переходить к следующей строке... и так до конца файла, пока все 10 не совпадут с задаваемыми числами. Вот.

[Stilet]

Покажи пару строк из файла, какие там разделители, как выглядят и пр.

[zzzetka]

3.00E-001 1 9.00E+001 0.000E+000 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.930000E-001
3.00E-001 1 9.00E+001 1.500E+001 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.932000E-001
3.00E-001 1 9.00E+001 3.000E+001 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.923000E-001
3.00E-001 1 9.00E+001 4.500E+001 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.934000E-001
3.00E-001 1 9.00E+001 6.000E+001 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.922000E-001
3.00E-001 1 9.00E+001 7.500E+001 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.914000E-001
3.00E-001 1 9.00E+001 9.000E+001 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.925000E-001
3.00E-001 1 9.00E+001 1.050E+002 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.924000E-001
3.00E-001 1 9.00E+001 1.200E+002 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.924000E-001
3.00E-001 1 9.00E+001 1.350E+002 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.922000E-001
3.00E-001 1 9.00E+001 1.500E+002 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.938000E-001
3.00E-001 1 9.00E+001 1.650E+002 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.944000E-001
3.00E-001 1 9.00E+001 1.800E+002 0.0000E+000 1.0000E+002 0.0000E+000 5.00E-001 1.00E+000 3.000E+002 5.931000E-001
3.00E-001 1 9.00E+001 0.000E+000 0.0000E+000 1.0000E+002 1.5000E+001 5.00E-001 1.00E+000 3.000E+002 5.683000E-001
3.00E-001 1 9.00E+001 1.500E+001 0.0000E+000 1.0000E+002 1.5000E+001 5.00E-001 1.00E+000 3.000E+002 5.678000E-001
3.00E-001 1 9.00E+001 3.000E+001 0.0000E+000 1.0000E+002 1.5000E+001 5.00E-001 1.00E+000 3.000E+002 5.689000E-001

for i:=1 to 11 do
   begin
    read(fil, stroka[i]);

    if (stroka[1]=lam) and
       (stroka[2]=Sm) and
       (stroka[3]=Hsun) and
       (stroka[4]=Az) and
       (stroka[5]=Ho) and
       (stroka[6]=Hpr) and
       (stroka[7]=alfa) then

       Edt4.Text:=FloatToStr(stroka[11])
     else
      Edt4.Text:=('net'); 
   end;

Вот таким образом он читает только одну первую строку и выдает последнее число. А как перейти от первой строчке к остальным, если хотя бы одно из условий не выполняется?

[Hacker19_90]

попробуй так:

while not(eof(fil)) do
begin
     for i:=1 to 11 do
     read(fil, stroka[i]);
     if (stroka[1]=lam) and
        (stroka[2]=Sm) and
        (stroka[3]=Hsun) and
        (stroka[4]=Az) and
        (stroka[5]=Ho) and
        (stroka[6]=Hpr) and
        (stroka[7]=alfa) then
        begin
             Edt4.Text:=FloatToStr(stroka[11])
             break
        end;
     else
         begin    
              Edt4.Text:=('net');
         end; 
end;

[Grag]

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

Для читывания этого фала я не могу задать двумерный массив.

Да тут достаточно одномерного динамического массива. Подойдет, например, TStringList...
Затем парсинг строки и сравнение с заданными значениями = результат...
А если строка четко форматирована, т.е. позиции значений имеют определенные постоянные величины, то возможно и применение функции Pos()....

[zzzetka]

Hacker19_90 !
Огромное спасибо! Все получилось! Я такой функции break даже не знала, если честно! Спасибо, спасибо, спасибо!!!!!

А что такое парсинг строки тем более не знаю