Проверить GUID

← →
Gu (2011-06-27 07:57) [0]

GUID получаю так:

Function TForm1.GuNewGuid:string;
var ID:TGUID;
begin
Result:="";if CoCreateGuid(ID) = S_OK then Result:=GUIDToString(ID);
end;

Вопрос: Допустим GUID вводится вручную, через edit, есть какая нибудь функция в дельфях, которая может проверить, евляется ли введенный текст корректным GUID (не дубликат в системе, а именно корретнтность ввода, скобки там, 16и ричные симолы и их верное количество и дефисы)?

← →
sniknik © (2011-06-27 08:02) [1]

> GUID получаю так:
не гуид, а строковое представление...

если бы гуид, то после ввода "через edit" тебе пришлось бы конвертировать, и вопрос о проверке бы не возник...

← →
Gu (2011-06-27 09:58) [2]

вопрос не об этом

← →
Anatoly Podgoretsky © (2011-06-27 10:07) [3]

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

← →
Медвежонок Пятачок © (2011-06-27 10:25) [4]

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

способ для тех кто не хочет знать про регулярки или маски

← →
sniknik © (2011-06-27 10:31) [5]

> вопрос не об этом
именно об этом. конвертация введенного к естественному типу одновременно является и проверкой на правильность... т.е. если правильно использовать, то ничего больше не нужно. но, блин, ваше постоянное не целевое использование... (не от тебя ли тут было про даты в екселе? и типа "я все знаю что дата число, но почему ...?" сказка про белого бычка. не кончается, не умрет.)
p.s. не спорю, иногда нужно, но блин, тот кто способен решить что "вот это, то самое, иногда", тот понимает и значит не задает подобных вопросов.

← →
sniknik © (2011-06-27 10:33) [6]

> способ для тех кто не хочет знать про регулярки или маски
имхо, для тех кто не читает доку, а изобретает велосипеды... к знающим регулярки тоже относится.

← →
sniknik © (2011-06-27 10:34) [7]

If StringToGUID succeeds it returns the requested GUID. If StringToGUID fails an EConvertError exception is raised.

← →
Медвежонок Пятачок © (2011-06-27 10:36) [8]

сам ты наташа.
я дал дурацкий ответ чтобы автор понял, что ответ дан на дурацкий вопрос.

← →
Дмитрий Белькевич (2011-06-27 10:41) [9]

StringToGUID ?

← →
sniknik © (2011-06-27 10:49) [10]

> чтобы автор понял
в начинающих авторы не понимают даже очевидного... а уверенную глупость принимают за истину. т.е. чтобы понял? ага.

← →
Юрий Зотов © (2011-06-27 10:51) [11]

> евляется ли введенный текст корректным GUID

См. StringToGUID.

← →
QAZ (2011-06-27 11:14) [12]

кому и для чего есть необходимость вводить(и вообще знать) какой либо гуид ?

← →
b z (2011-06-27 11:48) [13]

> QAZ
Опередил, +1.

А он, к примеру, читает из файла. и, соответственно, хочется понять - он прочитал корректную строку, или там мусор.

← →
Gu (2011-06-27 21:26) [17]

2 Дмитрий Белькевич, Юрий Зотов - угу, так норм.работает:

Function isStrGUIDOk(GuidStr:string):bool;
begin
Result:=false;
Try
StringtoGuid(GuidStr);Result:=true;
Except
Showmessage("GUID не корректный");
End;
End;

...
if not isStrGUIDOk(edit1.text) then exit;

Gu (27.06.11 21:26) [17]

Ты пиши, пиши, пиши,
Сочиняй весь век,
Потому что пародист -
Тоже человек.

Он не хочет затянуть
Туже поясок.
Для него твои стихи -
Хлебушка кусок.

Ты пиши и мой призыв
Не сочти за лесть,
Потому что пародист
Тоже хочет есть!

Александр Иванов

Проверить GUID Найти похожие ветки