Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 15.02.2015
Сообщений: 21

Как записать несколько значений работая с текстом

15.02.2015, 22:25. Показов 826. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. Никак не могу додуматься, как сделать, чтобы в edit1.text записать несколько значений взятые из .txt файла. Смысл задания. Создать txt файл и чтобы пользователь ввел туда данные. А потом из этого файла вывел результат.(У меня не было идей куда вывести результат кроме edit1.text, но меня это не устраивает, т.к значения перезаписываются и выводится только последнее)
Кстате, вот еще что, у меня кнопка 2 почему то не хочет выводить результат, если я не делаю последовательно)
Т.е если я нажимаю кнопку 1 ввожу данные а потом кнопку 2, то все ОК, пашет(файл при этом не удаляется), а если нажму сразу кнопку 2, то ничего не происходит, хотя сам файл есть. Тоже интересно в чём проблема?

Вот сам код.

Delphi
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
var
  myFile : TextFile;
  text   : string;
  FIO,POL,GR,GRUP : string;
  GR2:integer;
  H:string;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
// Попытка открыть файл Test.txt для записи в него
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);
  H:='Да';
  while H='Да' do
  begin
  repeat
    FIO := InputBox('ФИО', 'Пожалуйста, укажите свое ФИО', 'ФИО');
  until FIO <> '';
  WriteLn(myFile, FIO);
 
  repeat
  POL := InputBox('Пол', 'Пожалуйста, укажите свой пол', 'Пол');
  until POL <> '';
  WriteLn(myFile, POL);
 
  repeat
  GR := InputBox('Год Рождения', 'Пожалуйста, укажите свой год рождения', 'Год рождения');
  GR2:=StrToInt(GR);
  until GR <> '';
  WriteLn(myFile, GR);
 
  repeat
  GRUP := InputBox('Группа', 'Пожалуйста, укажите группу', 'Группа');
  until GRUP <> '';
  WriteLn(myFile, GRUP);
 
  repeat
  H := InputBox('Информация о студенте', 'Добавить информацию о студенте?', 'Да');
  until H <> '';
  If H='Нет' then
  begin
     CloseFile(myFile);
  end;
end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
AssignFile(myFile, 'Test.txt');
reset(myFile);
Readln(myFile);
    if (POL='Мужской') and (GR2<=1996) and (GRUP='14') then
    begin
      Edit1.Text:= FIO;
    end;
    closefile(myFile);
end;
 
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.02.2015, 22:25
Ответы с готовыми решениями:

Как можно записать несколько значений в одну ячейку?
помогите отсортировать в excel есть список плавок и пакеты в которые они попали. надо получить список пакетов с номерами плавок в них.

записать несколько значений
Помогите разобраться. Как сделать так, чтобы в базу заносилось в одно поле несколько фоток, а после загрузки отображался названия фоток ,...

Записать в переменную несколько значений
Всем привет. Есть такой запрос: $id = $item; $query = mysqli_query($link, &quot;SELECT * FROM `screen` WHERE `id` = '$id'&quot;); ...

1
958 / 577 / 136
Регистрация: 23.05.2012
Сообщений: 7,364
16.02.2015, 10:59
Чтобы в Editне перезаписывалось, а добавлялось поменяйте 84-ю строку на
Delphi
1
Edit1.Text := Edit1.Text + FIO;
Цитата Сообщение от Fase Посмотреть сообщение
если нажму сразу кнопку 2, то ничего не происходит
Потому что ничего не читаете. В 80-ой строке помимо файловой переменной должна быть переменная куда считывать данные
Delphi
1
Readln(myFile, {вот тут});
А вообще для вывода лучше использовать TMemo.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.02.2015, 10:59
Помогаю со студенческими работами здесь

Записать в $_SESSION несколько значений
как записать в $_SESSION несколько значений( напрмиер несколько Id товара).

В одно поле записать несколько значений
Имеется база данных, в одной из таблиц которой хранятся пользователи. Таблица содержит поля id, login, email, и т.д. Приложение работает...

Работа с файлами, нужно записать несколько случайных вещественных значений
Привет всем! Задание вот такое: Создать файл, в который записать не менее 20 вещественных чисел в диапазоне от 25,3 до 27,1. Вывести...

Записать в файл несколько строк, а затем записать несколько строк из этого файла в другой
Заранее создать текстовый файл 1.txt и записать в него несколько строк текста. Программа должна получить из него второй файл 2.txt, в...

Как записать несколько div в массив по их id?
Что я не правильно делаю? Вылезает ошибка: TypeError: mydivs is undefined Код следующий: for (i=1;i&lt;=5;i++) { ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru