Как все edit собрать в переменную и записать в файл

[f1xed]

subj: Как все edit собрать в переменную и записать в файл
помогите пожалуйста, как мне это сделать? дайте код если не сложно
спасибо

[Alt]

Хм... Ответ кроется в самом вопросе, нужно:
1. Собрать все edit в 1 переменную
2. Записать в файл

Непонятно только, зачем собирать в одну переменную?

[f1xed]

Alt, я пишу софтинку, пользователь выбирает параметры (около 8 критериев) и по нажатию на кнопку всё это должно записать в строчку в текстовый файл

[f1xed]

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

Хм... Ответ кроется в самом вопросе, нужно:
1. Собрать все edit в 1 переменную
2. Записать в файл

вот это то мне и нужно, как это сделать пока не знаю, поиск по форуму юзал - безуспешно

[Alt]

Ну объединить это легче простого, допустим записываем все в строчку "str"

var
str: string;
begin
str:=edit1.text+edit2.text+...+edit8.text;
end;

Записать файл - тоже легко:

var
f: text;
begin
system.assign(f,'адрес файла'); //устанавливаем соответствие между файлом  и переменной
rewrite(f); //открываем файл для записи
writeln(f, str); //записываем строку "str" в файл
close(f); //закрываем файл
end;

[fbus]

var s:string;
s:=edit1.text+','+edit2.text+....
если я правильно понял

[f1xed]

Alt, огромное спасибо!

[f1xed]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls, ExtCtrls, ComCtrls, Unit3;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    XPManifest1: TXPManifest;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Label1: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  F: TextFile;
  str: String;
implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.show;
end;

begin
str:=LabeledEdit1.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
system.assign(F,'1.txt');
rewrite(F);
writeln(F, str);
close(F);
end;
end.

делаю так, пишет ошибку [Ошибка] Unit1.pas(62): Undeclared identifier: 'LabeledEdit1'
что делать?

[Sanakan]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls, ExtCtrls, ComCtrls, Unit3;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    XPManifest1: TXPManifest;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Label1: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  F: TextFile;
  str: String;
implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
str:=LabeledEdit1.Text;
system.assign(F,'1.txt');
rewrite(F);
writeln(F, str);
close(F);
end;

end.

[Alt]

begin
str:=LabeledEdit1.Text;
end;

Ошибка кроется тут.
Во-первых, это часть не относится ни к какой процедуре.
Добавим заголовок, и получим:

procedure TForm1.proc1;
begin
str:=LabeledEdit1.Text;
end;

Во-вторых, эту процедуру нам нужно добавить к классу формы, дополним наш класс формы следующим образом:

type
  TForm1 = class(TForm)
    //описание разной ерунды я удалил, но тебе этого делать не надо.
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Proc1;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Должно заработать.


Ну и еще, эту процедуру надо где-то использовать)
Дополним последнюю процедуру:

procedure TForm1.Button2Click(Sender: TObject);
begin
proc1;
system.assign(F,'1.txt');
rewrite(F);
writeln(F, str);
close(F);
end;