![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Подскажите как организовать !
Уже всю голову сломал (...Есть две переменные x и y x задает количество переменных y. Необходимо чтоб программа позволяла последовательно ввести переменные y1, y2... yn, сохраняя их в файл. С возможностью последовательно переходить к переменным (вперед-назад), для редактирования. Буду очень признателен! |
|
#2
|
||||
|
||||
|
можно использовать либо массивы, либо списки TList.
информацию организации работы с файлами в delphi полно в инете!!! |
|
#3
|
||||
|
||||
|
Если по простому то так:
Код:
program Project1;
{$APPTYPE CONSOLE}
Uses SysUtils;
Var
i, X: Integer;
Yi: String;
F: TextFile;
Begin
Writeln('Vvedite k-vo peremennih:');
AssignFile(F, ParamStr(0)+'.txt');
Rewrite(F);
Readln(X);
For i:= 0 To X - 1 Do
begin
Writeln('Vvedite Y['+IntToStr(i+1)+']:');
Readln(Yi);
Writeln(F, Yi);
end;
CloseFile(F);
Writeln('Peremennie Saved!');
Readln;
end.Последний раз редактировалось AND_REY, 22.03.2011 в 20:04. |