С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
1 из 2 1 2 »
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
1

Работа с файлом

26.03.2013, 14:33. Показов 1734. Ответов 24
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
У меня возникла такая проблема
Например у меня есть Memo1 куда парсить последняя запись,есть файл "otvet.txt"
В нем записано:Команда = Ответ
Помогите сделать,что бы например если команда в файле не найдена то молчит,а если например нашел слово которое есть в Memo1 то он в Edit записал только ответ,у той команды которую нашел
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 26.03.2013, 14:33
Ответы с готовыми решениями:

работа с файлом
в Edit1.text вважу двнные эти данные должен записать в файл но файл открываю как byte как это...

Работа с файлом
Уважаемые Форумчане! Задачка такая - Считать из файла текст и записать в другой файл символы в...

Работа с файлом
Задали файл действительных чисел (создать программным путем). Найти сумму его элементов с четными...

Работа с файлом
Всем привет! Имеется текстовый файл (там хранится статистика, об учащихся). Как мне сделать, что...

24
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
26.03.2013, 15:52 2
Цитата Сообщение от Владимир_Наумов Посмотреть сообщение
Memo1 куда парсить последняя запись,есть файл "otvet.txt"
В нем записано:Команда = Ответ
Бред какой-то ..
0
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
26.03.2013, 16:59  [ТС] 3
Цитата Сообщение от mss Посмотреть сообщение
Бред какой-то ..
Это к примеру было сказано.
У меня есть в Memo1 слово например "Привет",а рядом с программой лежит файл "otvet.txt"
в нем записано команда=ответ
Надо что бы при клике на кнопку он сравнивал слово из Memo1 если он нашел такое слово то в edit5 отправил ответ этого слова,не понятно?
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
26.03.2013, 17:08 4
Вот теперь более-менее что-то проясняется.

То есть, если

в Memo.Text = 'Привет'

а в файле

Палка=Селедка
Привет=Медвед
Аффтар=Мозгоклюй

то в edit.Text <- Медвед

так что ли ?
1
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
26.03.2013, 18:18  [ТС] 5
Да,вот именно так
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
26.03.2013, 20:16 6
Цитата Сообщение от Владимир_Наумов Посмотреть сообщение
именно так
Ну и ?
0
Житель Земли
3001 / 3010 / 390
Регистрация: 26.07.2011
Сообщений: 11,464
Записей в блоге: 1
26.03.2013, 20:29 7
Delphi
1
2
3
4
5
6
7
8

var
  s: tstringlist;
begin
  s:= tstringlist.create;
  s.loadfromfile('otvet.txt');
  edit5.text:= s.values[memo1.text];
  s.free;
end;
0
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
26.03.2013, 22:02  [ТС] 8
Почему выдает текст через раз?
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
26.03.2013, 22:10 9
Цитата Сообщение от Владимир_Наумов Посмотреть сообщение
Почему выдает текст через раз?
Так звезды расположились.
Да и никто и не обещал что через два.
0
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
26.03.2013, 22:46  [ТС] 10
у меня такой вопрос как мне например я это сделал
Delphi
1
2
3
4
5
6
7
8
9

procedire otvet;
var
  s: tstringlist;
begin
  s:= tstringlist.create;
  s.loadfromfile('otvet.txt');
  edit5.text:= s.values[memo1.text];
  s.free;
end;
Как мне сравнить эту процедуру с Memo2
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
26.03.2013, 23:04 11
Цитата Сообщение от Владимир_Наумов Посмотреть сообщение
Как мне сравнить эту процедуру с Memo2
А никак.
Эта процедура несравнима с Мемо2.
0
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
26.03.2013, 23:07  [ТС] 12
А как можно сделать что бы сравнить?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12

procedire otvet;
var
  s: tstringlist;
begin
  s:= tstringlist.create;
  s.loadfromfile('otvet.txt');
  edit5.text:= s.values[memo1.text];
  s.free;
end;
 
 
else if Form1.Memo1.Text =   then
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
26.03.2013, 23:16 13
Цитата Сообщение от Владимир_Наумов Посмотреть сообщение
как можно сделать что бы сравнить
Что с чем ?
Мемо2 в твоем коде даже не пахнет.
0
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
26.03.2013, 23:22  [ТС] 14
Мне надо как нибудь сравнить процедуру
Delphi
1
2
3
4
5
6
7
8
9

procedire otvet;
var
  s: tstringlist;
begin
  s:= tstringlist.create;
  s.loadfromfile('otvet.txt');
  edit5.text:= s.values[memo1.text];
  s.free;
end;
С Memo2
Можно как-нибудь?
0
Пишу на Delphi...иногда
1423 / 1278 / 286
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
26.03.2013, 23:25 15

Не по теме:

что более зеленое ходить или кто?

какова цель сравнения?
0
mss
26.03.2013, 23:27
  #16

Не по теме:

цель сравнения?
Вестимо - чтобы препод отстал со своим дурацким Делфи

0
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
26.03.2013, 23:28  [ТС] 17
Пишу бота,и мне надо сравнить
Да еще и подобное задание задали
0
Пишу на Delphi...иногда
1423 / 1278 / 286
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
26.03.2013, 23:30 18
последняя попытка....
что необходимо понять по результатам сравнения процедуры и мемо? что-то больше, что-то меньше или что?
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
26.03.2013, 23:34 19
Цитата Сообщение от Владимир_Наумов Посмотреть сообщение
Пишу бота
Кому какое дело что ты там пишешь, "писатель" ?

мне надо сравнить
Что с чем ?

еще и подобное задание задали
Вперед во Фриланс.
0
0 / 0 / 0
Регистрация: 26.03.2013
Сообщений: 16
26.03.2013, 23:35  [ТС] 20
Мне надо просто сравнить
Процедуру как нибудь с Memo2
Memo2 и процедуру не сравнить не как,вот я и спрашиваю как сравнить их
Так не катит
Delphi
1

else if Form1.Memo2.Text = otvet_bot  then
Когда у меня будет = тогда идет отправка текста
0
26.03.2013, 23:35
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 26.03.2013, 23:35
Помогаю со студенческими работами здесь

Работа с файлом
procedure TForm1.Button5Click(Sender: TObject); var k,m:integer; sbal1,sbal2,n,sum:extended;...

Работа с файлом
Здравствуйте, у меня есть ТextFile. В нем n-количество строк. Мне нужно пересчитать количество...

Работа с файлом
Даны два файла произвольного типа. С помощью процедуры Rename поменять местами их содержимое. ...

Работа с файлом
Добрый вечер, форумчане! Хочется надеяться на помощь тех, кто очень силён в Делфи. Дело в том, что...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
1 из 2 1 2 »
Новые блоги и статьи
Что такое HCL Notes и как с ним работать
InfoMaster 10.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .
Как работать с Git из Windows и Visual Studio
InfoMaster 10.01.2025
Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python
InfoMaster 10.01.2025
Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .
Отличия абстрактного класса от интерфейса
InfoMaster 10.01.2025
В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .
Как работать в Git
InfoMaster 10.01.2025
Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C#
InfoMaster 10.01.2025
Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих
InfoMaster 10.01.2025
В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru