при нажатие кнопки button значения edit записывалось в файлик

@L_E_X_A · Регистрация: 05.08.2011

Author24 — интернет-сервис помощи студентам

мне нодо чтобы при нажатие кнопки button значения edit записывалось в файлик

@HyperZen · 05.08.2011, 10:00

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

мне нодо чтобы при нажатие кнопки button значения edit записывалось в файлик

Ну что ж вы такие простые вещи просите... Это же элементарщина: ставишь SaveDialog, по событию нажатия кнопки сохраняешь текст из Edit'а в файл (Edit1.Text)

@L_E_X_A · 05.08.2011, 10:03 **[ТС]**

а как это написать

@Puporev · 05.08.2011, 10:08

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
assignfile(f,'D:\test.txt');
rewrite(f);
writeln(f,Edit1.Text);
closefile(f);
end;

@L_E_X_A · 05.08.2011, 11:01 **[ТС]**

а как сделать так чтобы в этом текстовом фаиле записывалась информация через запятую или в столбик

@Puporev · 05.08.2011, 11:04

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

через запятую

Delphi

1	write(f,Edit1.Text,',');

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

или в столбик

так и будет

Delphi

1	writeln(f,Edit1.Text);//каждая строка с новой строки в файле.

А что вообще нужно? А то все как-то намеками...

@Ice_and_Fire · 05.08.2011, 11:12

......

@Puporev · 05.08.2011, 11:14

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

writeln(f,Edit1.Text+#10+#13);

Мне кажется что writeln и так добавляет #10#13

@L_E_X_A · 05.08.2011, 11:24 **[ТС]**

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

Добавлено через 6 минут
вобще нужна маленькая прога которая должна делать в edit вбивать кокуюнибудь цифру и сохронять в txt столбик
8
9
3
2
5
чтото типо этого

@Puporev · 05.08.2011, 11:41

Например так.

Delphi

var
  Form1: TForm1;
  f:textfile;
  i:integer=0;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(f,'D:\test.txt');
rewrite(f);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
writeln(f,Edit1.Text);
Edit1.Clear;
Edit1.SetFocus;
inc(i);
if i=5 then
 begin
  Edit1.Enabled:=false;
  Button1.Enabled:=false;
  closefile(f);
 end;
end;
 
end.

А насчет

writeln(f,Edit1.Text+#10+#13);

и

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

не выдумывайте...

@Arcor · 05.08.2011, 11:46

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

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

Нужно заменить

Delphi

1	Rewrite() // перезапись файла

на

Delphi

1	Append() // дабавление в конец файла

@Puporev · 05.08.2011, 11:51

Да, если не создавать файл в отдельной процедуре, то именно так.

@Rapala · 05.08.2011, 12:02

А не проще ли было использовать Edit и Memo?
По кнопке:

Delphi

1 2	memo1.lines.add(edit1.text); memo1.lines.savetofile('123.txt')

@Puporev · 05.08.2011, 12:10

А какой смысл использовать дополнительный, абсолютно не нужный компонент?

@Arcor · 05.08.2011, 12:17

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

А какой смысл использовать дополнительный, абсолютно не нужный компонент?

Конечно его можно сделать невидимым

@Puporev · 05.08.2011, 12:22

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

Конечно его можно сделать невидимым

Тогда уж TStringList...

@Arcor · 05.08.2011, 12:27

А давайте все оставим как было до этого? А то сейчас начнется, докатимся, что начнем сохранять файлы через все что возможно...

@Ice_and_Fire · 05.08.2011, 12:29

Конечно будет пересоздавать. Надо Append использовать

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	05.08.2011, 12:17	15
	Сообщение от Puporev А какой смысл использовать дополнительный, абсолютно не нужный компонент? Конечно его можно сделать невидимым 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.08.2011, 12:22	16
	Сообщение от Arcor Конечно его можно сделать невидимым Тогда уж TStringList... 0

@Ice_and_Fire 512 / 298 / 37 Регистрация: 22.06.2011 Сообщений: 929
	05.08.2011, 12:29	18
	Конечно будет пересоздавать. Надо Append использовать 0

@L_E_X_A 0 / 0 / 0 Регистрация: 05.08.2011 Сообщений: 4
		1
	при нажатие кнопки button значения edit записывалось в файлик 05.08.2011, 09:57. Показов 3437. Ответов 17 Метки нет (Все метки) мне нодо чтобы при нажатие кнопки button значения edit записывалось в файлик 0

@HyperZen 498 / 251 / 56 Регистрация: 16.06.2011 Сообщений: 904
	05.08.2011, 10:00	2
	Сообщение от L_E_X_A мне нодо чтобы при нажатие кнопки button значения edit записывалось в файлик Ну что ж вы такие простые вещи просите... Это же элементарщина: ставишь SaveDialog, по событию нажатия кнопки сохраняешь текст из Edit'а в файл (Edit1.Text) 1

@L_E_X_A 0 / 0 / 0 Регистрация: 05.08.2011 Сообщений: 4
	05.08.2011, 10:03 [ТС]	3
	а как это написать 0

@L_E_X_A 0 / 0 / 0 Регистрация: 05.08.2011 Сообщений: 4
	05.08.2011, 11:01 [ТС]	5
	а как сделать так чтобы в этом текстовом фаиле записывалась информация через запятую или в столбик 0

@Ice_and_Fire 512 / 298 / 37 Регистрация: 22.06.2011 Сообщений: 929
	05.08.2011, 11:12	7
	...... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.08.2011, 11:14	8
	Сообщение от Ice_and_Fire writeln(f,Edit1.Text+#10+#13); Мне кажется что writeln и так добавляет #10#13 1

@L_E_X_A 0 / 0 / 0 Регистрация: 05.08.2011 Сообщений: 4
	05.08.2011, 11:24 [ТС]	9
	он просто перезаписывает значения а надо чтобы вводимые значения записывались в столбик Добавлено через 6 минут вобще нужна маленькая прога которая должна делать в edit вбивать кокуюнибудь цифру и сохронять в txt столбик 8 9 3 2 5 чтото типо этого 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.08.2011, 11:51	12
	Да, если не создавать файл в отдельной процедуре, то именно так. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.08.2011, 12:10	14
	А какой смысл использовать дополнительный, абсолютно не нужный компонент? 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	05.08.2011, 12:27	17
	А давайте все оставим как было до этого? А то сейчас начнется, докатимся, что начнем сохранять файлы через все что возможно... 0