файлы в делфи

[ПИнасол]

procedure TForm1.Button1Click(Sender: TObject);
begin
with SaveDialog1, edit1, edit2, edit3,edit4,edit5,edit6,edit7,edit8 ,edit9 do
if Execute then
begin
Lines.SaveToFile(FileName);
OpenDialog1.FileName:=FileName;
end;
end;


end.

нужно чтобы программа при считывание с edit ов сохраняла их в файл,но у меня выскакивает ошибка на

Lines.SaveToFile(FileName);

пишет что не идентифицируется линии,подскажите команду или код чтобы заработала%)
p.s. заранее спасибо

[Stilet]

if Execute then
begin
 Lines.SaveToFile(OpenDialog1.FileName);
end;

[ПИнасол]

не работает%)
кидает ошибку на lines.
ребят подскажите, что делать?!

[BDA]

Сначала сформируйте в строке или стринглисте информацию из эдитов.
Имхо, так не заработает.

[Stilet]

кидает ошибку на lines.

Телепат? Нам тоже сенситивнуть?

[ПИнасол]

все равно ошибка

procedure TForm1.Button1Click(Sender: TObject);
var
edit1,edit2,edit3,edit4,edit5,edit6 ,edit7,edit8,edit9,lines :TStringList;
begin
with SaveDialog1, edit1 , edit2, edit3,edit4,edit5,edit6,edit7,edit8 ,edit9 do
if Execute then
begin
Lines.SaveToFile(FileName);
OpenDialog1.FileName:=FileName;
end;
end;

программа запускается,но сохранять значения с edit'ов не хочет,подскажите пожалуйста в чем может быть ошибка

[BDA]

Честно говоря, какая-то ересь у вас написана

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  SaveDialog1: TSaveDialog;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ts: tstringlist;
  i: integer;
begin
  if savedialog1.Execute then
  begin
    ts := tstringlist.create;
    for i := 1 to 9 do
      ts.Text := ts.Text + (FindComponent('edit' + inttostr(i)) as TEdit).Text;
    ts.SaveToFile(savedialog1.FileName);
    ts.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  with tbutton.Create(self) do
  begin
    Parent := self;
    Left := 150;
    Top := 20;
    Caption := 'save';
    OnClick := Button1Click;
  end;
  savedialog1 := tsavedialog.Create(self);
  for i := 1 to 9 do
  begin
    with tedit.create(self) do
    begin
      parent := self;
      name := 'edit' + inttostr(i);
      left := 10;
      top := 22 * i - 10;
    end;
  end;
end;

end.

Не забудьте подключить событие oncreate.

[ПИнасол]

когда записываю oncreate выдает такую ошибку а когда удаляю полностью работает...для чего в этой программе нужна oncreate??
а можно еще сделать так чтобы он сохранял в виде матрицы?эти числа

у меня вот как выглядит форма

[BDA]

Выше приведенный код создает все элементы на форме сам.
Если у вас на форме уже есть все 9 эдитов с именами вида editX, где X - число от 1 до 9, одна кнопка и savedialog, то вам не нужен код события oncreate. Тогда только кнопке присвойте событие onclick.
Конечно можно и матрицу
Только, как она должна выглядеть, я не знаю. Если вы скажете как, то я, возможно, подскажу, как ее сделать.

[ПИнасол]

101
101
111

чтобы примерно в таком виде сохранялась в блокноте,при считывания с едитов