создание файла в делфи

[whatever]

// AssignFile(F, ''+edit1.text); {вывод из файла} два раза ненужно

А три раза тем более.
Оставь в самом начале который, остальные убери или закоментируй, и будет тебе счастье.

И еще я бы посоветовал после Rewrite(F); написать Randomize;

[Hunter7]

все равно блин та же ошибка

[whatever]

Update: Кстати, у тебя же ФОРМА. Откуда она будет делать readln(r)? Похоже в этом и ошибка.

[Hunter7]

у меня все равно ошибка(
может скинешь мне всю программу?

[whatever]

Мое сообщение выше прочитай еще раз. Все у тебя правильно, только напиши в консоли.

[Hunter7]

а с формой нельзя никак сделать?

[whatever]

Можно. Но я тогда не совсем представляю, как (а главное зачем?) реализовать цикл while..do.

[Hunter7]

мне нужно эту программу в меню вставить, а без формы я не знаю как

[whatever]

Мда, препод, конечно, козит...
Может быть это действительно можно реализовать нормально, хз. Вот вариант "на отъ*бись":

procedure TForm1.Button1Click(Sender: TObject);
var
F:textfile;
R:real;

i:integer;
begin
AssignFile(F,Edit1.Text);
rewrite(F);
randomize;
for i:=0 to 4 do
  begin
    r:=random(10000)/10;
    writeln(f,r);
  end;
  R:=0;
 append(F);
 r:=random(1000);
  while r<>999 do
    begin
      Writeln(F,R);
      r:=random(1000);   //Разве кто-то говорил, что вводить нужно вручную? :)
    end;
  CloseFile(F);
  memo1.Lines.Text:='';
  Reset(F);
  while not EOF(F) do
  begin
    Read(F,r);
    memo1.Lines.Text:=memo1.Lines.Text+FloatToStr(R)+#13#10;
//    Writeln(r);
  end;
  CloseFile(F);

  end;

end.

Ну естественно на форму добавляешь Tmemo и ставишь туда сбоку полосу прокрутки.



P.S. А вообще, всего этого анонизма можно было бы избежать, добавив Button2, и добавляя в текстовик значение из Edit2, нажатием этого Button2. Потом ткнуть на Button3 и вывести весь текстовик в Memo1. Но тогда никаких while r<>999 do не получится, они тупо ненужны.

[Hunter7]

большое спасибо, выручил =)