выборка и сравнение из массива

[Dennikid]

есть массив от -90 до 90 с шагом 5.
Есть данные из файла где значениям X от -90 до 90 с шагом 1 присваивается значение Y.
Надо чтобы была проверка и если нет в исходном файле каких-либо значений X то значению Y для этого X присваивалось бы 0.
Просто проверку я знаю как делать, а вот как сделать чтобы добавлялась?

[Квэнди]

Есть данные из файла где значениям X от -90 до 90 с шагом 1 присваивается значение Y.

откуда берется значение Y ?

[Dennikid]

значение Y берется из другой программы и записывается в файл в виде:
-90 237
-89 2346
-88 2354
и т.д.
вот и надо отсюда выбрать данные с шагом 5 и если допустим нет
-90 237 или пропущено какое-нибудь значение в файле.
, то на выходе (в MEMO) должно выводиться -90 0 или соответственно ему.
Данные я выбираю, но не могу сделать проверку.

[Квэнди]

ну и уш для полноты картины: какой разделитель между x и y в файле ?

[Dennikid]

пробел. я же написал "выборку делаю" . надо сравнение

[zhefran]

Используй функции роботы со строками pos,copy,length.

[Dennikid]

как их использовать? посмотрел помощь, а там ни слова о массиве. надо сравнение на присутствие числа из массива в исходных данных берущихся из файла и в случае отсутствия его там присвоить соответствуещему этому числу Y значения 0.

[Квэнди]

memo1.Clear;
x:=0;y:=0;tempx:=0;tempy:=0;
memo1.Lines.LoadFromFile('c:\in2.txt');
for i := 0 to memo1.Lines.Count-1 do
  begin
    if memo1.Lines[i]<>'' then
      begin
      if i>0 then
        begin
          tempx:=strtointdef(copy(memo1.Lines[i],1,pos(' ',memo1.Lines[i])-1),0);
          tempy:=strtointdef(copy(memo1.Lines[i],pos(' ',memo1.Lines[i])+1,length(
            memo1.Lines[i])-pos(' ',memo1.Lines[i])),0);
          if tempx-x>1 then
            for j := x+1 to tempx do
              begin
                inc(x);
                y:=0;
                    memo2.Lines.Add(inttostr(x)+' '+inttostr(y));
              end
          else
            begin
              y:=tempy;
              x:=tempx;
                  memo2.Lines.Add(inttostr(x)+' '+inttostr(y));
            end;
        end
      else
        begin
          x:=strtointdef(copy(memo1.Lines[i],1,pos(' ',memo1.Lines[i])-1),0);
          y:=strtointdef(copy(memo1.Lines[i],pos(' ',memo1.Lines[i])+1,length(
            memo1.Lines[i])-pos(' ',memo1.Lines[i])),0);
        end;
      end;
  end;
end;

[Dennikid]

этот код не вводит проверку на присутствие. вот выложил файлы которые нужно обработать. из a-bez должно получиться a-nuzhno.
а Memo выводит из файла с первой строчки то есть -90 строка не выводится. и проверка её не идет(((

[Квэнди]

понял, а -90 это заданная граница, меняться не может ?