Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
 Аватар для RPG-MARKET
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 82

Как корректно сравнить версии программы, записанные в двух Edit

22.10.2012, 15:15. Показов 3400. Ответов 13
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток дорогие форумчани)))
Сегодня я столкнулся с проблемой по сравнению версий программы
может вы под скажете что делать
Допустим есть 2 ini файла VerMainForm.ini и VerServer.ini
VerServer.ini храниться на сайте и закачивается при открытие программы
VerMainForm.ini храниться в папке с программой.
В каждом из етих ini файлов храниться информация, допустим:
VerMainForm.ini:
1.3
а в VerServer.ini
1.4
Нужно что бы при открытие запуске программы информация с VerMainForm.ini и VerServer.ini передавались в edit1 и edit2
ну здесь я думаю все понятно:
Delphi
1
2
Edit1.Text.LoadFromFile('VerMainForm.ini');
Edit2.Text.LoadFromFile('VerServer.ini');
После чего производилось сравнение версий
если версия в VerServer.ini больше чем в VerMainForm.ini то производилась функция:
Delphi
1
URLDownloadToFile(nil, PChar('http://moysite.ru/program.exe'), PChar('program.exe'), 0, nil);
Если же версии одинаковые тогда открывался exe файл с программой:
Delphi
1
ShellExecute(Handle, 'open', 'C:\Windows\System32\MainForm.exe', nil, nil, cmdShow);
Заранее большое спасибо за помощь!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.10.2012, 15:15
Ответы с готовыми решениями:

Vector - как сравнить записанные строки?
Здравствуйте. std::vector<std::string> g_Test; g_Test.push_back("One"); g_Test.push_back("Two"); ...

Сравнить содержимое двух Edit Box
Собственно, при сравнении содержимого двух Edit Box (строки 64 - 77) всегда пишет, что их содержимое равно между собой, хотя это не всегда...

Нужно сравнить содержимое двух Edit box
Возникла небольшая проблемка. Я создал два Edit box edit = CreateWindow("edit", NULL,...

13
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
22.10.2012, 15:52
Цитата Сообщение от RPG-MARKET Посмотреть сообщение
здесь я думаю все понятно
Кроме тебя вряд ли кому понятно зачем тут вообще понадобились Edit'ы.
0
 Аватар для RPG-MARKET
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 82
22.10.2012, 15:55  [ТС]
ну ето уже для моей программы... потом оно с Edit берет версию программы и выводит в гуи + у меня один скрипт на едите завязан!
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
22.10.2012, 16:02
Ну хорошо.
А проблема-то в чем конкретно ?
0
 Аватар для RPG-MARKET
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 82
22.10.2012, 16:13  [ТС]
Проблема к сравнение версий c edit
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
22.10.2012, 16:18
сравнивай StrToFloat(Edit.Text)
0
 Аватар для RPG-MARKET
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 82
22.10.2012, 16:49  [ТС]
можно пример????
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
22.10.2012, 16:59
можно.
возьми в стандартной справке, он там есть.
0
 Аватар для RPG-MARKET
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 82
22.10.2012, 17:06  [ТС]
а можно ссылку?
Так же хочу напомнить пользователям которые забыли:
Данный раздел по программированию для новичков на далфи! соответственено здесь создаються темы от нубов как я с просьбой обяснить и помоч! если всех пользователей отправлять в справку зачем вопше форум?????
я многое не прошу! я нормально и адекватно написал в чом суть проблемы и что мне надо обяснить! зачем ети тупые переписки? я понимаю что вы гуру программистов на делфи но я новичок.... что так трудно накидать скипт с объяснением? ето же алиментарные вещи!
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
22.10.2012, 17:12
Цитата Сообщение от RPG-MARKET Посмотреть сообщение
накидать скипт
В Delphi нет скриптов.
Это не скриптовый ЯВУ.
0
 Аватар для RPG-MARKET
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 82
22.10.2012, 17:52  [ТС]
Мне кто то нормально поможет? иле нет?
0
 Аватар для Одиночка
3944 / 1869 / 337
Регистрация: 16.03.2012
Сообщений: 3,880
22.10.2012, 18:33
Считать в Edit так как ты написал не получится. Можно использовать Memo, там есть метод LoadFromFile. В Edit можно считать так (предпологаю, что *ini файлы просто используются для хранения версий и не имеют структуры *ini-файла):
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
//Функция чтения первой строки из заданного текстового файла
Function LoadFromIni(IniName:String):String;
Var
  f : TextFile;
Begin
  AssignFile(f,IniName);
  Reset(f);
  ReadLn(f,Result);
  CloseFile(f);
End;
 
//В основной программе...
Procedure TForm1.Form1Create(Sender : TObject);
Var
  s,s1 : String;  
Begin
  s:=LoadFromIni('VerMainForm.ini');
  s1:=LoadFromIni('VerServer.ini');
  Edit1.Text:=s;
  Edit2.Text:=s1;
  //Заменим точку на используемый в системе разделитель
  StringReplace(s,'.',DecimalSeparator,[rfReplaceAll]);
  StringReplace(s1,'.',DecimalSeparator,[rfReplaceAll]);
  //Сравним...
  If StrToFloat(s)<StrToFloat(s1) Then
  URLDownloadToFile(nil, PChar('http://moysite.ru/program.exe'), PChar('program.exe'), 0, nil) Else
  ShellExecute(Handle, 'open', 'C:\Windows\System32\MainForm.exe', nil, nil, cmdShow);
End;
Примерно так.
Правда, если версия будет состоять из нескольких полей через точку - этот вариант не прокатит.
1
 Аватар для RPG-MARKET
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 82
22.10.2012, 18:55  [ТС]
Да спосибо все работает но одна проблема осталась...
Теперь когда версия совпадает не выполняеться функция открытия ехе файла....
0
 Аватар для Одиночка
3944 / 1869 / 337
Регистрация: 16.03.2012
Сообщений: 3,880
22.10.2012, 19:14
Проверь, если убрать сравнение и обновление - файл будет открываться?
Закомментируй строки 25-26.

Добавлено через 8 минут
И там, кажется, должно быть: SW_SHOW.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.10.2012, 19:14
Помогаю со студенческими работами здесь

Программно создаю Edit - ы, как записанные в них значения добавить в массив?
for (int i=0;i&lt;5;i++) { TEdit *edit = new TEdit(this); edit-&gt;Parent = this; ...

Сравнить даты, записанные в виде строк
Здравствуйте имеется две даты в edit1 и в edit2 мне их надо сравнить пишу так if (Edit1.Text&gt;Edit4.Text) then ...

Как из Edit первый символ сравнить с заданным
помогите сделать задачу, которая заключается в следующем: ЕСть форма с 5-ю эдитами, кнопкой и одним чекбоксом.. в эдиты вводятся...

Как корректно сложить значения из двух TextBox
В общем, при сложении двух строковых, выдает сообщение: System.Windows.Forms.TextBox, Text. private void button1_Click(object...

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


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

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru