Рекламный блок.

Суть: есть файл с набором цифр(цифры записаны каждое с новой строки). Есть программка, которая выбирает из определенного диапазона рандомное число и, если его нет в файле, то записывать его туда, а если есть - то выдавать окно с сообщением. Программка есть, проблема с проверкой на наличие числа в файле. Бьюсь 2-ой день.

Код

procedure TForm1.Button1Click(Sender: TObject);
const n = 999999;
var
r1 : integer;  
r2 : integer;
r3 : integer;
f : TextFile;
s : string;
begin
 Randomize;
 r1:=StrToInt(Edit3.Text); - нижнее значение
 r2:=StrToInt(Edit4.Text); - верхнее значение

if ((r1 < 0) or (r2 > n)) then ShowMessage('Бла-бла-бла');
else
  begin
   r3:= RandomRange(r1,r2);
   Edit2.Text:=IntToStr(r3); - отображение числа
  end;

s:=Edit2.Text;
AssignFile(f,'file.txt');

 While not (EoF(f)) do
  begin
    Readln(f,s);
    if Pos(f,s)>0 then
      begin
        ShowMessage('Record Find');
        Edit2.Clear;
      end
          else
            begin
              Append(f);
              Writeln(f,s);
            end;
  end;
CloseFile(f);

end;

Процедура какой-то кошмар..

s:=Edit2.Text;

Зачем переменную брать из строки если она уже есть?

r3

Readln(f,s);

Взять строку в переменную s ????

if Pos(f,s)>0 then

Если строка присутствует в файле? ДЫк конечно присутствует, вы же только что ее взяли...

ShowMessage('Record Find');

Конечно файнд.

Вместо

While not (EoF(f)) do
  begin
    Readln(f,s);
    if Pos(f,s)>0 then
      begin
        ShowMessage('Record Find');
        Edit2.Clear;
      end

Надо чтото типа

Код

While not (EoF(f)) do
 begin
   Readln(f,[b]x[/b]);
   if x=r3 then
     begin
       ShowMessage('Record Find');
       Edit2.Clear;
     end

ошибка I/O Error 104

Denni
я же приблизительно написал...

кроме того после

Код

AssignFile(f,'file.txt');

надо

Код

ReadFile(f);

все... решилось...
Пэтро, спасибо за советы)))

вот код, если кому надо, может он не очень хороший, но рабочий:

Код

procedure TForm1.Button1Click(Sender: TObject);
const n = 999999;
var
r1 : integer;  
r2 : integer;  
r3 : integer;  
f : TextFile;
s, s1 : string;
IsFound : Boolean;
begin
 Randomize;
 r1:=StrToInt(Edit3.Text);
 r2:=StrToInt(Edit4.Text);

if ((r1 < 0) or (r2 > n)) then ShowMessage('Бла-Бла-Бла');
 else begin
   r3:= RandomRange(r1,r2);
   Edit2.Text:=IntToStr(r3);
  end;

s1 := Edit2.Text;

AssignFile(f, 'ungame.txt');
Reset(f);
 IsFound := False;
 while not Eof(f) do begin
   Readln(f, s);
   if Pos(s1, s) > 0 then begin
     ShowMessage('Record Find');
     IsFound := True;
     Edit2.Clear;
     Break;
   end;
 end;

 if not IsFound then begin
   Append(f);
   Writeln(f);
   Write(f, s1);
 end;

 CloseFile(f);
end;

Отредактировал Denni - 17 Февраля, 2010, 18:04

Denni, только есть в твоей проге один глюк. Если в файле будет число 1234, а ты ищешь 23, то твоя прога ответит что такое число есть, хотя на самом деле его нет.

почему?

почему?

Потому что

Код

if Pos(s1, s) > 0 then begin

Вернет для указанного случая

Если в файле будет число 1234, а ты ищешь 23

позицию больше нуля.

Например, если в строке с самого начала идет число 1234 (s = "1234"), то
Pos( "23", "1234" ) будет равно 2, т.е. > 0.

Получается, что в файле как будто есть число 23, хотя там есть только 1234.

Что мешает просто написать:

Код

  if ( s1 = s ) then begin
    ShowMessage('Record Find');
    IsFound := True;
    Edit2.Clear;
    Break;
  end;

?

а мешает отсутствие навыков и опыта =)
Спасибо =)

Причем я об этом писал в самом начале...


Все таки я не пойму как ты читаешь файл без ReadFile(f); ассоциировать файл с переменной недостаточно, надо его еще открыть. или нынче AssignFile выполняет 2 функции?

Все таки я не пойму как ты читаешь файл без ReadFile(f); ассоциировать файл с переменной недостаточно, надо его еще открыть. или нынче AssignFile выполняет 2 функции?

У него есть Reset( f ) и Append( f ) - этого вполне достаточно. Первое - открывает уже существующий файл для чтения, второе - открывает существующий файл для дописывания.

А само чтение осуществляется через Readln( f, s ).

Так что здесь все так, как и должно быть.

P.S. Вы, наверное, путаете с набором функций: FileOpen, FileRead.