[Improviz]

Здравствуйте!
Подскажите, пожалуйста, как можно создать файл, записать в файл содержимое массива строк и открыть данный файл для чтения?
Заранее благодарю!

[Karsh]

можно использовать AssignFile:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
begin
  AssignFile(F, 'ss.txt');
  Rewrite(F); // открываем для перезаписи
  try
    WriteLn(F, 'Строка 1');  // запись строки в файл
    WriteLn(F, 'Строка 2');
  finally
    CloseFile(F);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  F: TextFile;
  s, tmp: string;
begin
  AssignFile(F, 'ss.txt');
  Reset(F); // открываем для чтения
  try
    ReadLn(F, tmp); // чтение строки из файла
    s:= tmp;
    ReadLn(F, tmp);
    s:= s + #13#10 + tmp;
  finally
    CloseFile(F);
  end;
  ShowMessage(s);
end;

а можно тип TStrings:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStrings;
begin
  List:= TStringList.Create;
  try
    List.Add('Строка 1');
    List.Add('Строка 2');
    List.SaveToFile('ss2.txt');
  finally
    List.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  List: TStrings;
  s: string;
begin
  List:= TStringList.Create;
  try
    List.LoadFromFile('ss2.txt');
    s:= List.Text;
  finally
    List.Free;
  end;
  ShowMessage(s);
end;

[Improviz]

Спасибо за оказанную помощь!