файл по строкам

[Ioane]

Всем привет!Напишите самые азы. как можно создать текстовый файл по строкам?(а то препод написал прогу, а там куча ошибок). буду признателен

[Hacker19_90]

нужно
1 создать файловую переменную

var
    f: Text;

2 Соединиться с файлом

Assign (f, 'input.txt);

3 Открыть на запись

Rewrite (f);

4 Считать строку

Readln (s);

5 записать в файл

Writeln (f, s);

6 Закрыть файл

  Close (f);

[Максим_83]

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

Всем привет!Напишите самые азы. как можно создать текстовый файл по строкам?(а то препод написал прогу, а там куча ошибок). буду признателен

Для начала скажите какой язык программирования?
Вот пример на Delphi:

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
OpenDialog1.Filter := '*.txt |*.txt';
OpenDialog1.Title  := ' Открыть... ';
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
if Length (OpenDialog1.FileName) = 0 then
 ShowMessage('Для начала откройте файл!') else
Memo1.Lines.SaveToFile(OpenDialog1.FileName);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Application.Terminate;
end;

На форму кидаете 3 кнопки(BitBtn на закладке Additional), Memo(на закладке Standard) и OpenDialog (на закладке Dialogs)