Главная страница
    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.48 MB
Время: 0.034 c
1-1098171059
Сергей__С
2004-10-19 11:30
2004.10.31
TreeView


8-1091046811
Ricks
2004-07-29 00:33
2004.10.31
И все-таки Media Player :)


1-1097673237
Uran
2004-10-13 17:13
2004.10.31
Цифровые символы в строке


4-1095927456
Arnold
2004-09-23 12:17
2004.10.31
Какое сообщение возникает при изменении что либо на форме


6-1093020458
доброжелатель
2004-08-20 20:47
2004.10.31
OnRecv и прочее...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский