Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Nelya2612
05.08.2021 12:57 •
Информатика
Написать код delphi, который бы брал введенные данные и сохранял в txt файл.
Ответ:
nasty3yatskova
08.07.2020 09:10
Procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := Edit1.Text;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
f: textFile;
begin
AssignFile(f, 'C:\Users\HRAshton\Desktop\out.txt');
rewrite(f);
Write(f, Memo1.Text);
closeFile(f);
end;
Воть, приклейте эти процедуры на кнопки:)
0,0
(0 оценок)
Популярные вопросы: Информатика
bringm1
07.06.2023 00:16
Найдите произведение целых чисел от 20 до 40....
МиленаГригорьева25
07.06.2023 00:16
Запишите последовательность команд ms dos, позволяющую создать на диске x директории с1 и с2. в каждой из них создайте по одному текстовому файлу с5.txt и c6.txt, а затем...
kiss01522
30.06.2022 22:39
Вычислите произведение, если n вводится с клавиатуры: n(1-n)(2-n)(3--1)-n) ....
lizo4ka004
30.06.2022 22:39
Составить программу в дано а(n,m). найти номер строки, где находится первый элемент, кратный 5. поменять местами последнюю и найденную строку....
kate653
30.06.2022 22:39
1. вычислите значение функции у=2х(в квадрате) + 4х-2 на отрезке (0.17) с шагом 1.5...
shamalava210505
30.06.2022 22:39
Найти ошибку (информатика, паскаль). var s,k,a: integer; begin s: =0; k: =0; read(a); while a 0 do begin if a mod 8=0 then begin s: =s+a; k: =k+1; end; readln(a); end; var...
mayorovagelya
30.06.2022 22:39
Удалить из строки все слова , заканчивающиеся на гласную букву. написать программку на с++...
сварочка2000
11.07.2022 18:05
Укакого из современных носителей информации наибольшая емкость ?...
Xzxzxzxzxzzxzxz
11.07.2022 18:05
Вкинотеатре к рядов кресел. в первом ряду х кресел, в каждом последующем на у кресел больше, чем в предыдущем. стоимость одного места в первом ряду – l тенге, а в каждом...
AlexPomanov
11.07.2022 18:05
Электроная книга является ли писменным источником информации...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
Memo1.Text := Edit1.Text;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
f: textFile;
begin
AssignFile(f, 'C:\Users\HRAshton\Desktop\out.txt');
rewrite(f);
Write(f, Memo1.Text);
closeFile(f);
end;
Воть, приклейте эти процедуры на кнопки:)