найти не достающие числа

[brownb]

есть файл с цифрами
1
3
5
...

т.е не хватает цифры 2 и 4

Как программно узнать что не хватает этих двух цифр?

[Serge_Bliznykov]

наверное, не цифр, а чисел?

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

Как программно узнать что не хватает этих двух цифр?

если файл отсортирован, то вообще никаких проблем, читаем числа по порядку и сравниваем со счётчиком, если число больше, чем счётчик - выводим значение счётчика и увеличиваем счётчик. повторяем вывод, пока счётчик не сравняется с числом. Повторяем цикл чтения из файла.
всё.

если файл не отсортирован, то проще всего (если задача это позволяет), прочитать его в память, отсортировать и дальше пройтись в цикле от начала до конца по алгоритму, описанному выше.

[evg_m]

1. составить список(множество) допустимых(возможных) знечений

s:=[0..9]; файл с цифрами

2.прочитать число из ...

read(f,r);

3.вычеркнуть известное значение из списка

s:=s -[r]; //exclude(s, r);

4.если есть числа повторить п.2

while not eof(f) do
...
end;

5.пройти по всему множеству

for j:=0 to 9 do begin 
....
end;

6.если мы его не вычеркнули и элемент остался в множестве, то ....

if j in s then ...

[brownb]

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

1. составить список(множество) допустимых(возможных) знечений

s:=[0..9]; файл с цифрами

2.прочитать число из ...

read(f,r);

3.вычеркнуть известное значение из списка

s:=s -[r]; //exclude(s, r);

4.если есть числа повторить п.2

while not eof(f) do
...
end;

5.пройти по всему множеству

for j:=0 to 9 do begin 
....
end;

6.если мы его не вычеркнули и элемент остался в множестве, то ....

if j in s then ...

У меня есть тхт файл с числами от 1000000 до 2000000 по порядку

И есть файл котором тоже числа от 1000000 до 2000000 но уже не по порядку многих не хватает.Помогите решить проблему

[evg_m]

1. составить список(множество) допустимых(возможных) знечений

r:=TstringList.create;
r.loadFromFile(...); // у меня есть файл с числами по порядку
// или
memo1.Lines.LoadFromFile(....); //

2.прочитать число из ...

r2:=TstringList.Create;
r2.LoadFromFile(...); //файл в котором тоже но не попорядку

s:=r2.Strings[j]; // число("текстовая" запись числа) на какой-то строке

3.вычеркнуть известное значение из списка

x:=r.IndexOf(s); //а есть ли оно там и где именно
if x>=0 then // если оно есть
  r.Delete(x); //вычеркнуть

4.если есть числа повторить п.2

for j1:=0 to r2.Count-1 do begin
...
end;

6.если мы его не вычеркнули и элемент остался в множестве, то ....

r.SaveToFile(...);
// в зависимости от вар.п.1.
memo.Lines.SavetoFile(....);

P,S. быстро и легко добавить недостающие(найденные/оставшиеся) числа к ...

r2.AddStrings(r); //r2.AddStrings(memo.Lines);
r2.SaveToFile(....);

[brownb]

Пробую так не работает((((

procedure TForm1.Button1Click(Sender: TObject);
var
r:TstringList;
begin
with OpenDialog1, Memo1 do
      if Execute then
         Lines.LoadFromFile(FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with OpenDialog1, Memo2 do
      if Execute then
         Lines.LoadFromFile(FileName);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
j:integer;
s:string;
j1:integer;
x:integer;
begin
for j1:=0 to memo2.lines.Count-1 do begin
s:=memo2.lines[j];
x:=memo2.lines.IndexOf(s); //а есть ли оно там и где именно
if x>=0 then // если оно есть
  memo2.lines.Delete(x); //вычеркнуть
end;
end;

[evg_m]

for j1:=0 to memo2.lines.Count-1 do begin
s:=memo2.lines[j];
x:=memo2.lines.IndexOf(s); //а есть ли оно там и где именно
if x>=0 then // если оно есть
  memo2.lines.Delete(x); //вычеркнуть
end;
end;

memo2 это список ВСЕХ чисел по порядку.
А где же список исходный ?

[brownb]

Спасибо работает!Но программа зависает жуть.Пробую проверить 500 000 тыс чисел

[evg_m]

Но программа зависает жуть

1. вместо мемо использовать TStringList. ничего не будет видно, но скорость повысится.
2. "скобки" Memo.Lines.BeginUpdate/EndUpdate так чтобы обновление(показа!!! обновлений) результатов происходило пореже (не при каждом удалении)
3.сортированный список