MessageError
Приветствую бодрствующих!
Не могу сообразить одну фишку:
Коротень-ко, у меня есть Edit на форме с кнопкой. Когда пользователь ввел значение и нажал кнопу, я должен проверить содержимое и сгенерировать ошибку типа EConvertError (PS: мне так надо) со стандартным текстом
Чтобы получилось:
[COLOR=limegreen]'<содержимое_Edit.Text>' is a valid floating point[/COLOR]
Никак не могу засунуть туда [COLOR=red]'<здесь_содержимое_Edit.Text>'[/color]. Пробавол через QuotedStr(), но не получается. Может кто сообразит.
PS: Альтернативный способ генерации это сообщения, тоже приемлем
Не могу сообразить одну фишку:
Коротень-ко, у меня есть Edit на форме с кнопкой. Когда пользователь ввел значение и нажал кнопу, я должен проверить содержимое и сгенерировать ошибку типа EConvertError (PS: мне так надо) со стандартным текстом
raise EConvertError.Create('[COLOR=red]'<здесь_содержимое_Edit.Text>'[/color] is not a floating point');
Чтобы получилось:
[COLOR=limegreen]'<содержимое_Edit.Text>' is a valid floating point[/COLOR]
Никак не могу засунуть туда [COLOR=red]'<здесь_содержимое_Edit.Text>'[/color]. Пробавол через QuotedStr(), но не получается. Может кто сообразит.
PS: Альтернативный способ генерации это сообщения, тоже приемлем
Цитата:
Originally posted by StranikS
Приветствую бодрствующих!
Не могу сообразить одну фишку:
Коротень-ко, у меня есть Edit на форме с кнопкой. Когда пользователь ввел значение и нажал кнопу, я должен проверить содержимое и сгенерировать ошибку типа EConvertError (PS: мне так надо) со стандартным текстом
Чтобы получилось:
[COLOR=limegreen]'<содержимое_Edit.Text>' is a valid floating point[/COLOR]
Никак не могу засунуть туда [COLOR=red]'<здесь_содержимое_Edit.Text>'[/color]. Пробавол через QuotedStr(), но не получается. Может кто сообразит.
PS: Альтернативный способ генерации это сообщения, тоже приемлем
Приветствую бодрствующих!
Не могу сообразить одну фишку:
Коротень-ко, у меня есть Edit на форме с кнопкой. Когда пользователь ввел значение и нажал кнопу, я должен проверить содержимое и сгенерировать ошибку типа EConvertError (PS: мне так надо) со стандартным текстом
raise EConvertError.Create('[COLOR=red]'<здесь_содержимое_Edit.Text>'[/color] is not a floating point');
Чтобы получилось:
[COLOR=limegreen]'<содержимое_Edit.Text>' is a valid floating point[/COLOR]
Никак не могу засунуть туда [COLOR=red]'<здесь_содержимое_Edit.Text>'[/color]. Пробавол через QuotedStr(), но не получается. Может кто сообразит.
PS: Альтернативный способ генерации это сообщения, тоже приемлем
А так?
var s:string;
s:='<'+Edit.Text+'> is a valid floating point';
raise EConvertError.Create(s);
Цитата:
Originally posted by wanja
А так?
var s:string;
s:='<'+Edit.Text+'> is a valid floating point';
raise EConvertError.Create(s);
А так?
var s:string;
s:='<'+Edit.Text+'> is a valid floating point';
raise EConvertError.Create(s);
Не-е-е-е пойдет, так как основную фишку ты не заметил: зеленые кавычки, которых у тебя нет, тоже должны быть выведены в сообщении!
PS: не уж-то ты забыл как выглядат эти сообщения в реале.
Цитата:
Originally posted by StranikS
Не-е-е-е пойдет, так как основную фишку ты не заметил: зеленые кавычки, которых у тебя нет, тоже должны быть выведены в сообщении!
PS: не уж-то ты забыл как выглядат эти сообщения в реале.
Не-е-е-е пойдет, так как основную фишку ты не заметил: зеленые кавычки, которых у тебя нет, тоже должны быть выведены в сообщении!
PS: не уж-то ты забыл как выглядат эти сообщения в реале.
Тогда так :
s:='''<'+Edit.Text+'>'' is a valid floating point';
Может быть, один апостроф лишний...