Delphi. Сформировать файл, в котором не менее 20 целых чисел

[Виктор76]

Delphi. Сформировать файл, в котором не менее 20 целых чисел

Доброго времени суток уважаемые форумчане. Помогите решить задачу на Delphi следующего типа.
Сформировать файл, в котором не менее 20 целых чисел. Переписать положительные числа в один файл, а отрицательные числа в другой (ноль считать положительным числом). Заранее СПАСИБО!

 

[Vladimir_S]

Помогите решить задачу на Delphi

Могу на Паскале нарисовать. А уж Вы сами перегоните в Delphi. Устроит?

 

[Виктор76]

Могу на Паскале нарисовать. А уж Вы сами перегоните в Delphi. Устроит?

Буду и этому рад.

 

[Vladimir_S]

Буду и этому рад.

Ладно, сейчас нарисую.

 

[Vladimir_S]

Получите:

Var
 f1,f2,f3:Text;
 i:Byte;
 m:Integer;
Begin
 Assign(f1,'file1.txt');
 Rewrite(f1);
 Assign(f2,'file2.txt');
 Rewrite(f2);
 Assign(f3,'file3.txt');
 Rewrite(f3);
 Randomize;
 for i:=1 to 20 do Write(f1, -20+Random(40),' ');
 Close(f1);
 Reset(f1);
 for i:=1 to 20 do
  begin
   Read(f1,m);
   if m<0 then
    Write(f3, m,' ')
   else
    Write(f2, m,' ');
  end;
 Close(f1);
 Close(f2);
 Close(f3);
End.

В принципе, если я правильно помню, для перевода в Delphi достаточно сохранить этот код в файле с расширением .dpr и всюду заменить в нем Assign на AssignFile и Close на CloseFile. Вроде так.

 

[Виктор76]

В принципе, если я правильно помню, для перевода в Delphi достаточно сохранить этот код в файле с расширением .dpr и всюду заменить в нем Assign на AssignFile и Close на CloseFile. Вроде так.

Спасибо. Начало положено)))

 

[Виктор76]

Получил новое задание. Теперь нужно этот же код переделать в визуальное приложение на Delphi.:tehnari_ru_837:

 

[poiu]

и что именно надо? один button да один opendialog?

 

[Виктор76]

и что именно надо? один button да один opendialog?

Здравствуйте. Нужно Сформировать файл, в котором не менее 20 целых чисел. Переписать положительные числа в один файл, а отрицательные числа в другой (ноль считать положительным числом).
Нужно memo1 через который будут вводиться числа и записываться в файл1, а в memo2 и memo3 будут записываться отсортерованные числа и соответственно еще в файл2 и файл3. Заранее благодарен.

 

[Виктор76]

Здравствуйте. Нужно Сформировать файл, в котором не менее 20 целых чисел. Переписать положительные числа в один файл, а отрицательные числа в другой (ноль считать положительным числом).
Нужно memo1 через который будут вводиться числа и записываться в файл1, а в memo2 и memo3 будут записываться отсортерованные числа и соответственно еще в файл2 и файл3. Заранее благодарен.

И кнопка Button при нажатии на которую все это будет происходить

 

[poiu]

а метод работы с файлом? просто из memo можно сразу записать в файл, минуя Assign Rewrite.
просто Memo.Lines.SaveToFile();
в любом случае вот. если работа с файлами иная, перепишите.