Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

объявление функции   Найти похожие ветки 

 
bober   (2004-10-13 16:15) [0]

Сразу прошу у всех сорри за ламерский вопрос, но всеже как правильно объявить следующую функцию в type?

function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean;
begin
bla-bla-bla
end;

function SearchForText_AndSelect(const RichEdit:TRichEdit;const SearchText: string): Boolean; - не проходит.


 
Ega23 ©   (2004-10-13 16:17) [1]

Полный код давай.
Не функции, а объявления.
И что значит "не проходит"? Что компилятор говорит?


 
bober   (2004-10-13 16:21) [2]

ругается на
function SearchForText_AndSelect(const RichEdit:TRichEdit;const SearchText: string): Boolean;

[Error] Unit2.pas(21): Unsatisfied forward or external declaration: "TForm2.SearchForText_AndSelect"

запускаю функцию со след-ми параметрами:
SearchForText_AndSelect(RichEdit1,Edit1.Text);


 
Ega23 ©   (2004-10-13 16:28) [3]

У тебя эта функция является методом класса TForm2. Соответственно, описание функции должно выглядеть следующим образом:

function TForm2.SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean;
begin
bla-bla-bla
end;


 
Pentium133 ©   (2004-10-13 16:38) [4]

Господа!
Не забываем про Ctrl-Shift-C!
(для тех кто не в курсе: в объявлении класса пишем procedure  MyPros; и сразу нажимаем)


 
Ega23 ©   (2004-10-13 16:44) [5]

Pentium133 ©   (13.10.04 16:38) [4]

Угу. Только short-cut"ы у аськи предварительно отключаем...  :о)


 
Grrey   (2004-10-13 17:31) [6]

По моему bober пытается сделать следующее:

TSearchForText_AndSelect = function (RichEdit: TRichEdit; SearchText: string): Boolean;

Просто объясняет это не правильно.


 
Pentium133 ©   (2004-10-13 17:36) [7]


> Grrey   (13.10.04 17:31) [6]

Пусть bober сам скажет. Или будем рассматривать все возможные варианты? :)


 
WondeRu ©   (2004-10-13 17:38) [8]

bober   (13.10.04 16:15)
const RichEdit:TRichEdit

бред! RichEdit в данном случае указатель на объект.


 
Grrey   (2004-10-13 17:41) [9]

Судя по
bober   (13.10.04 16:21) [2]
Ega23 дал самый правильный ответ.
Пропустил, каюсь.


 
П7   (2004-10-13 17:43) [10]

В type это будет выглядеть как:

type
 fncSearchForText_AndSelect : function(RichEdit: TRichEdit; SearchText: string): Boolean;

ага


 
Ega23 ©   (2004-10-13 17:54) [11]

бред! RichEdit в данном случае указатель на объект.

Кстати, да! const убери.


 
begin...end ©   (2004-10-13 18:20) [12]


> [10] П7   (13.10.04 17:43)


> :

=


 
П7   (2004-10-13 18:37) [13]


> begin...end ©   (13.10.04 18:20) [12]

Это ты на каком наречии изъяснился? (: Может я такой тупой, но я вот не понял, что ты хотел мне сказать... (:


 
Ega23 ©   (2004-10-13 18:40) [14]

Это ты на каком наречии изъяснился? (: Может я такой тупой, но я вот не понял, что ты хотел мне сказать... (:

Это он изъяснился, что ты пургу прогнал.
Вместо
type
fncSearchForText_AndSelect : function(RichEdit: TRichEdit; SearchText: string): Boolean;


дожно быть
type
fncSearchForText_AndSelect = function(RichEdit: TRichEdit; SearchText: string): Boolean;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.047 c
3-1096978437
Gennady
2004-10-05 16:13
2004.10.31
Master/Detail ClientDatSet


4-1095680247
ipnet
2004-09-20 15:37
2004.10.31
Как сменить курсор для отдельно взятого static


1-1097832637
TeNY
2004-10-15 13:30
2004.10.31
Как определить равенсво двух обьектов тип Tpicture?


10-1054029776
serg_
2003-05-27 14:02
2004.10.31
Проблема "лишних" GDI-объектов в corba-сервере


3-1096884693
WondeRu
2004-10-04 14:11
2004.10.31
FireBird: port 3050





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский