Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 29.07.2020
Сообщений: 7

Работа с текстовыми файлами в Windows forms PascalABC.NET

20.08.2020, 15:29. Показов 1411. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В Windows forms PascalABC нужно вывести данные на диск в виде текстового файла, вот описание программы в разделе реализации
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Interface
Private 
Textbox1: textbox
 
Implementation 
Var f:textfile; x:real; y:string; 
Procedure button.click
Begin
Y:=textbox1.text 
End;
Begin ( тут начинается относновной begin программы в данной форме)
X:=25 ;
Assign(f1,'данные.txt');
Append(f1);
Writeln (f1,y,x);
Close (f1);
End.
В первом случае когда я делал вот так , то в файле где 'данные' сохранялось только число 25
 Во 2 случае  
Interface
Private 
Textbox1: textbox
 
Implementation 
Var f:textfile; x:real; y:string; 
Procedure button.click
Begin
 
End;
Begin ( тут начинается относновной begin программы в данной форме)
Y:='moto';
X:=25 ;
Assign(f1,'данные.txt');
Append(f1);
Writeln (f1,y,x);
Close (f1);
End.
Во 2 случае сохраняется вместе с надписью , но по программе нужно сделать так , что бы в поле ввода textbox, по нажатию кнопки введенное значение присваивалось переменной У , но как я не пробовал - это сделать не получается , только есть string преобразовать в float то в этом случае вместо пустого места где должен быть У появляется 0 , процедуру присваивания переменной У к текстовому полю textbox в основном поле begin присвоить не получается - ошибка , работаю в Windows forms PascalABC
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.08.2020, 15:29
Ответы с готовыми решениями:

Работа с файлами в Windows Forms Application
Не совсем вник, как реализовать считывание данных из файла, при работе с формами. На форме есть кнопка, по нажатию на кнопку, надо...

Работа с GUI windows forms .NET C++/CLI
На данный момент я студент и это мое задание по практике. Помогите решить вопрос до воскресенья (19.07.2020).

Ошибка в pascalabc.net forms
PABCSystem.pas(7590) : Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32. Пробывал ставить...

5
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
21.08.2020, 10:07
При чём здесь forms?

y — строка
x — действительное число

Когда вы пишите на листочке произвольное слово и число, ставите между ними пробел.
Так почему же в данном случае вы этого не сделали?
0
0 / 0 / 0
Регистрация: 29.07.2020
Сообщений: 7
21.08.2020, 15:32  [ТС]
Добрый день , эту программу я пишу в Windows forms в паскале , тут код описан не полностью , смотрите только на раздел реализации
Да , я понимаю что нужно пробел , писал следующим образом : writeln ( f1,y,' ',x) в этом случае пробел будет между строкой и числом , но это не помогает , для вывода используется write(writeln) в текстовые файлы , но проблема в том , что мне через текстовое поле textbox по нажатию кнопки button , нужно присвоить значение Y (к примеру : ' moto ') в процедуре нажатия кнопки button ( в forms процедура описывается до основного begin программы) но в результате после выполнения операции в текстовом файле сохраняется только X , если же значение У присвоить в основном begin программы , то он сохранится в файле , но в основном begin программы не получается Y присваивать по нажатии кнопки - ошибка , то есть У описывается как ( У:='moto') , мне же нужно присваивать ее по нажатию кнопки и сохранять в файл вместе с числовым значением
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
21.08.2020, 15:54
Вывести в TextBox
Pascal
1
2
3
4
5
6
7
8
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var x:real;
    y:string;
begin
x:=12.56;
y:='moto';
TextBox1.Text:=floattostr(x)+' '+y;
end;
0
0 / 0 / 0
Регистрация: 29.07.2020
Сообщений: 7
22.08.2020, 08:13  [ТС]
Спасибо за ответ, извиняюсь если я что-то неправильно объясняю вам , в данном решение текстовому полю textbox присваивается значение У и Х( переведённого из вещественного в тип string) , но мне нужно наоборот , что бы textbox1.text:=y ( Y я ввожу с клавиатуры , в процессе выполнения программы ) а потом этот У сохранить в текстовый файл , но загвоздка в том , что У сохранить в текстовый файл не получается
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
22.08.2020, 08:58
Да || от куда вы берёте свои значения!
Главное, что x — это действительное, а y — это строка.
Так?

Вот код, который запихивает их в файло:
Pascal
1
2
3
4
5
6
7
8
9
##
var f : Text;
Rewrite(f, '123.321');
 
var x := 123.321;
var y := 'раз два три';
Write(f, x, #32, y);
 
Close(f);
Вот код, который читает их из файло:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
##
var f : Text;
Reset(f, '123.321');
 
var x : Real;
Read(f, x);
x.Println;
 
var y : String;
ReadLn(f, y);
y.Println;
 
Close(f);
Всё!

Если не нравится, что к y прилепился пробел, то воспользуйтесь тримом:
Pascal
11
y.Trim.Println;
А ещё лучше писать их в разные строки…
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.08.2020, 08:58
Помогаю со студенческими работами здесь

Работа с текстовыми файлами
Помогите написать программу,которая прочтёт в папке 3 файла с разрешением txt,и весь текст который находится в этих файлах между...

Работа с текстовыми файлами
Было задание сделать 3 программы, первая должна создать файл ".bat", а вторая файл ".txt", третья чтобы их открыть и прочитать...

Работа с текстовыми файлами
Нужна программа такого плана: открываем текстовый файл, в нем куча строк смотрим первую строку если есть в ней текст "кусок...

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

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


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru