Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу

[P1rate]

Дан тестовый файл f. Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу. Порядок компонент должен быть сохранен.

Помогите пожалуйста.очень срочно(

[Terran]

На каком языке программирования должна быть написана программа?

[HURRICANE]

Вот пример на C#

using System;
using System.IO;
using System.Windows.Forms;

namespace Files
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Выполнить_Click(object sender, EventArgs e)
        {
            try
            {
                StreamReader sr = new StreamReader("f.txt");
                StreamWriter sw = new StreamWriter("g.txt");

                string from;

                while (!sr.EndOfStream)
                {
                    from = sr.ReadLine();
                    sw.WriteLine(" " + from);
                }
                sw.Close();
                sr.Close();
                MessageBox.Show("Данные успешно обработаны!");
            }
            catch (Exception ex) { MessageBox.Show(ex.Message,"!!!ОШИБКА!!!"); }
        }
    }
}

[P1rate]

мммм(забыл сказать....в Delphi....

[Terran]

мммм(забыл сказать....в Delphi....

Вот на Делфи:

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: TStringList;
I: Integer;
Begin
S:=TStringList.Create;
S.LoadFromFile('f.txt');
For I:=0 To S.Count-1 Do
Begin
S.Strings[I]:=' ' + S.Strings[I];
End;
S.SaveToFile('g.txt');
S.Free;
End;

[P1rate]

я мало что понимаю,но вот на эту строку ругается

Procedure TForm1.Button1Click(Sender: TObject);

пишет:

Expected '=' but '(' found.

[Terran]

Вы наверное код написали там где не требуется. Опишите поподробнее.

[P1rate]

создаю в Delphi "Form"

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
Procedure
TForm1.Button1Click(Sender: TObject);

var
S: TStringList;
I: Integer;
Begin
S:=TStringList.Create;
S.LoadFromFile('f.txt');
For I:=0 To S.Count-1 Do
Begin
S.Strings[i]:=' ' + S.Strings[i];
End;
S.SaveToFile('g.txt');
S.Free;

{$R *.dfm}

end.

[Terran]

Создайте новый проект в Делфи. (с формой);
Поставьте на форму кнопку Button1 и установите обработчик события на нажатие кнопки. Потом впишите код. В общем, у Вас должно получиться так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: TStringList;
I: Integer;
Begin
S:=TStringList.Create;
S.LoadFromFile('f.txt');
For I:=0 To S.Count-1 Do
Begin
S.Strings[i]:=' ' + S.Strings[i];
End;
S.SaveToFile('g.txt');
S.Free;
End;
end.

P.S. Начальный файл f должен находиться в одной папке с программой.

[P1rate]

Спасибо Огромное))Разобрался)всё работатет))