VPF::Проблемы с Pos и Delete - Форум программистов

InseR

Дата 20.7.2008, 06:36 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 9.7.2007

Репутация: нет
Всего: нет

Есть у меня процедура,отвечающая за отправку сообщения:

Код


procedure TMainForm.MessageEditKeyPress(Sender: TObject; var Key: Char);
begin

 if( Key = #13 ) and ( PrivateChek.Checked = false ) then
 begin
 IRCComp.Say('channel',MessageEdit.Text);
 MessageEdit.Clear;
 end;

 if( Key = #13 ) and ( PrivateChek.Checked = true ) then
 begin

 text:=MessageEdit.Text
 count:=Pos(':',text);

 if count <> 0 then
 begin
 name:=Copy(text,1,count);
 Delete(text,1,count);
 IRCComp.Say(name,text);
 MessageEdit.Clear;
 PrivateChek.Checked:= false;
 end
 else
 begin
 ShowMessage('Не правильный формат приватного сообщения');
 Exit;
 end;

 end;

Вот в этих двух строках почемуто возникает ошибка:

Код


1) count:=Pos(':',text); -->  Missing operator or semicolon
2) Delete(text,1,count); ---> Constant object cannot be passed as var parameter

Подскажите почему возникают ошибка,все вроде бы правильно делаю...

P.S:Переменные count,name и text объявлены как глобальные.

Это сообщение отредактировал(а) InseR - 20.7.2008, 06:37

volvo877

Дата 20.7.2008, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Цитата(InseR @ 20.7.2008, 06:36

)

Вот в этих двух строках почемуто возникает ошибка:

Не в этих, а перед ними... Точка с запятой после

Код


 text:=MessageEdit.Text

где? Это во-первых... Во вторых:

Цитата(InseR @ 20.7.2008, 06:36

)

Переменные count,name и text объявлены как глобальные.

Возможно, только Дельфям по фигу, как у тебя объявлена переменная Text, подразумевается MessageEdit.Text, а с ней такой фокус не пройдет... Либо меняй название переменной с Text на что-нибудь другое, либо добавляй область видимости: {имя_модуля}.Text ...

InseR

Дата 20.7.2008, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 9.7.2007

Репутация: нет
Всего: нет

Цитата(volvo877 @ 20.7.2008, 09:17)

Цитата(InseR @ 20.7.2008, 06:36

)

Вот в этих двух строках почемуто возникает ошибка:

Не в этих, а перед ними... Точка с запятой после

Код


 text:=MessageEdit.Text

где? Это во-первых... Во вторых:

Цитата(InseR @ 20.7.2008, 06:36

)

Переменные count,name и text объявлены как глобальные.

Спасибо братан!Тока вот я не очень понял на счет модуля и все такое,но работает на 5. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »