С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.67/60: Рейтинг темы: голосов - 60, средняя оценка - 4.67
pupushecka
29 / 29 / 1
Регистрация: 13.06.2011
Сообщений: 165
1

Запись в файл из edit

27.04.2012, 12:39. Просмотров 11106. Ответов 26
Метки нет (Все метки)

HELLO! Помогите записать в файл информацию из поля Edit.
Примерно пишу вот так, но не хочет:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 procedure TForm1.Button1Click(Sender: TObject);
var fi:Textfile;               //задаем файловую переменную
s:string;                      //задаем перем. для хранения строки
begin
s:='23';
 assignfile(fi,'C:\11.txt');  //связываем переменную  fi  с файлом  11.txt
 reset(fi);                   //открываем файл для чтения
 readln(fi,s);
  //Rewrite(fi);
 //Writeln(fi);
// write(fi,s);
  // closefile(fi);
 
end;
 end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.04.2012, 12:39
Ответы с готовыми решениями:

Запись edit в файл
Допустим у нас есть 3 edit'a c данными : сумма вклада (VKLAD), месячная...

Запись данных в типизированный файл из edit
Необходимо взять данные из edit и сохранить в файл: var f:file of integer;...

Запись в текстовый файл текста с нескольких Edit
Помогите, пожалуйста! Есть форма Как сделать так что бы при нажатии на...

Запись в Edit
Подскажите пожалуйста. На форме четыре кнопки, и edit . Нажимая на первую,...

Запись с Edit в Excel
Подскажите тему или фрагмент кода, где осуществлена запись в файл Excel с поля...

26
Night_Chaser
0 / 0 / 1
Регистрация: 28.10.2015
Сообщений: 31
07.10.2016, 23:26 21
Доброе времени суток, а не подскажите ли Вы, как записать txt файл в директории с exe?
0
TimKruz
141 / 39 / 14
Регистрация: 16.06.2016
Сообщений: 239
07.10.2016, 23:32 22
Цитата Сообщение от Night_Chaser Посмотреть сообщение
в директории с exe?
Delphi
1
ExtractFileDir(Application.ExeName);
Эта функция вернёт полный путь до папки с exe-файлом.

После старта указатель файловой системы уже находится в этой папке, т.е. для AssignFile() папку менять не нужно.

А если заблудились в файловой системе, делаем так:
Delphi
1
SetCurrentDir(ExtractFileDir(Application.ExeName));
После этого все относительные пути будут указывать на папку с exe-файлом.
1
northener
пофигист широкого профиля
3429 / 2328 / 631
Регистрация: 15.07.2013
Сообщений: 13,796
08.10.2016, 01:02 23
Цитата Сообщение от TimKruz Посмотреть сообщение
Эта функция вернёт полный путь до папки с exe-файлом.
Уточню. Эта функция вернет полное имя папки/каталога, в которой/котором содержится тот самый исполняемый файл. Не больше и не меньше.
0
D1973
Модератор
3673 / 2649 / 1290
Регистрация: 21.01.2014
Сообщений: 11,231
Записей в блоге: 3
Завершенные тесты: 1
08.10.2016, 07:31 24
Вместо этого:
Delphi
1
ExtractFileDir(Application.ExeName);
ИМХО, лучше использовать
Delphi
1
ExtractFilePath(ParamStr(0));
Преимущества: будет работать не только в GUI-приложениях, но и в консоли, без необходимости подтягивать в свое приложение класс TApplication
0
droider
Universal
Эксперт Pascal/Delphi
4405 / 2451 / 765
Регистрация: 04.10.2012
Сообщений: 8,911
08.10.2016, 07:51 25
Цитата Сообщение от D1973 Посмотреть сообщение
лучше использовать
+1.
0
MyEternity
96 / 96 / 25
Регистрация: 25.04.2016
Сообщений: 525
08.10.2016, 21:37 26
А еще лучше использовать:
Delphi
1
ChangeFileExt(ParamStr(0), '.txt');
0
D1973
Модератор
3673 / 2649 / 1290
Регистрация: 21.01.2014
Сообщений: 11,231
Записей в блоге: 3
Завершенные тесты: 1
08.10.2016, 21:49 27
MyEternity, только в том случае, если необходимо получить ТХТ-файл с тем же именем, что и само приложение...
0
08.10.2016, 21:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2016, 21:49

Запись из edit в memo
В edit через запятую вводятся названия столбцов : a1, a2, a3, a4 итд. Нужно...

Запись даты в edit
Всем привет есть такой вопрос.Как сделать так чтобы я ввёл в эдит 12032016 а ...

Запись из Edit в Stringgrid
Вобщем вопрос такой: на форме имеется Edit в нем запись :001111000(примерно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
27
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru