SB
Можно побайтово сравнивать, у точки значение меньше чем у цифр. (Поправка, это не правильно)
Извиняюсь, не прокатит, если нет ведущих нулей. Потому что "2" будет больше, чем "12"
Size: a a a
2020 December 09
z
всем моим программам нужна БД, и драйвера для постгреса не нужны, прост копируешь экзешник куда хошь, и оно работает и конектится.
програмист
z
+ ты в код программ, которым не нужна БД для работы, тащишь код для работы с СУБД, + драйвера на те компы
не програмист
z
ты себя окончательно дискридитировал
z
снимите ему админа))
AS
Поправил выше, для наглядности
ну ты ж ведь не будешь верить какому-то человеку в чём-то одном, когда он несёт пургу по другим вопросам ))
авторитет надо заслужить )))))) так устроена иерархия человеческих (как вида) отношений
авторитет надо заслужить )))))) так устроена иерархия человеческих (как вида) отношений
AS
ты себя окончательно дискридитировал
мы лучше тебя в бан отправим, чтобы лодку не раскачивал
СП
Я просто так делал:
function VersionInfoRec: TFileProductVersion;
VAR
Stream: TResourceStream;
vr: TVersionResource;
fi: TVersionFixedInfo;
BEGIN
Initialize(Result);
TRY
Stream:= TResourceStream.CreateFromID(HINSTANCE, 1, PChar(RT_VERSION));
TRY
vr:= TVersionResource.Create;
TRY
vr.SetCustomRawDataStream(Stream);
fi:= vr.FixedInfo;
RESULT := fi.FileVersion;
vr.SetCustomRawDataStream(nil)
FINALLY
vr.Free
END
FINALLY
Stream.Free
END
EXCEPT
END
end;Вроде уже готовое в FPC есть:
https://wiki.freepascal.org/Show_Application_Title,_Version,_and_Company
https://wiki.freepascal.org/Show_Application_Title,_Version,_and_Company
RS
Сергей Пятыгин
Вроде уже готовое в FPC есть:
https://wiki.freepascal.org/Show_Application_Title,_Version,_and_Company
https://wiki.freepascal.org/Show_Application_Title,_Version,_and_Company
Да, это я взял из очень старого моего проекта
СП
https://pastebin.com/VPKgqmeh
код для Д2007, поэтому там нет методов рекордов, как это можно сделать сейчас в современных версиях делфи (т.е. функции я бы перенёс в методы записи, но в слепую без ИДЕ я не стал этого делать)
код для Д2007, поэтому там нет методов рекордов, как это можно сделать сейчас в современных версиях делфи (т.е. функции я бы перенёс в методы записи, но в слепую без ИДЕ я не стал этого делать)
Верно ли я понимаю что это только 1 число из 4 сравнивается?
function CompareVersions(pVersion1, pVersion2: TVersion): Integer;
begin
Result := CompareValue(pVersion1.Vr, pVersion2.Vr);
end;AS
Сергей Пятыгин
Верно ли я понимаю что это только 1 число из 4 сравнивается?
function CompareVersions(pVersion1, pVersion2: TVersion): Integer;
begin
Result := CompareValue(pVersion1.Vr, pVersion2.Vr);
end;нет, неверно
SB
ну ты ж ведь не будешь верить какому-то человеку в чём-то одном, когда он несёт пургу по другим вопросам ))
авторитет надо заслужить )))))) так устроена иерархия человеческих (как вида) отношений
авторитет надо заслужить )))))) так устроена иерархия человеческих (как вида) отношений
Авторитет как в анекдоте - https://anekdotov.me/raznye/76890-bylo-u-odnogo-muzhika-mnogo-mnogo-tarakanov-i.html
СП
@ashumkin
https://www.freepascal.org/docs-html/rtl/math/comparevalue.html
Она же вроде простые типы сравнивает?
https://www.freepascal.org/docs-html/rtl/math/comparevalue.html
Она же вроде простые типы сравнивает?
AS
Сергей Пятыгин
@ashumkin
https://www.freepascal.org/docs-html/rtl/math/comparevalue.html
Она же вроде простые типы сравнивает?
https://www.freepascal.org/docs-html/rtl/math/comparevalue.html
Она же вроде простые типы сравнивает?
да
z
.Vr - 64 бита судя по коду выше
СП
.Vr - 64 бита судя по коду выше
Но это же одно число, а не структура?
https://www.freepascal.org/docs-html/rtl/system/int64.html
https://www.freepascal.org/docs-html/rtl/system/int64.html
z
да, но оно в себе содержит 4 других
z
https://pastebin.com/VPKgqmeh
код для Д2007, поэтому там нет методов рекордов, как это можно сделать сейчас в современных версиях делфи (т.е. функции я бы перенёс в методы записи, но в слепую без ИДЕ я не стал этого делать)
код для Д2007, поэтому там нет методов рекордов, как это можно сделать сейчас в современных версиях делфи (т.е. функции я бы перенёс в методы записи, но в слепую без ИДЕ я не стал этого делать)
код с бажком))
AS
код с бажком))
дык, зарепорти
z
дык, зарепорти
endian не учитывается