Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Преобразование типов [D6, D7, Win2k, WinXP]

Страницы: 1 2 >
Хыыыы © (2004-08-18 09:18:00)
как преобразовать Pchar в String?

Спасибо.

Anatoly Podgoretsky (2004-08-18 17:22:00) [1]
И как только рука поднялась. :-)

Anatoly Podgoretsky (2004-08-18 17:21:00) [2]
Это было два Пиво, а ему хватит и одного.

Паскальные надписи (2004-08-18 17:02:00) [3]

> app © (18.08.04 15:50) [24]
> Удалено модератором

А это что-то типа этого? :)
********** : удалено самоцензурой. В RO захотел?
:-)))))))

app (2004-08-18 15:50:00) [4]
Удалено модератором

app (2004-08-18 15:50:00) [5]
Думкин © (18.08.04 15:09) [21]
А ему Пиво

NAlexey (2004-08-18 15:12:00) [6]
He-he. Содержательная беседа.

Думкин (2004-08-18 15:09:00) [7]
> [20] Хыыыы (18.08.04 15:06)

Мне то за что? Это к > Digitman ©

Хыыыы (2004-08-18 15:06:00) [8]
> Думкин © (18.08.04 14:35) [17]
Спасибо, пЫво за мной

Digitman (2004-08-18 14:54:00) [9]

> Хыыыы (18.08.04 14:38) [18]

о боже !)

ну так сложно сориентироваться что ли ?

ну не [10], а [12] ! ты вообще вникаешь в то что тебе адресовано ? неважно под каким номером поста ?

Хыыыы (2004-08-18 14:38:00) [10]
[15] и [10] это мои сообщения, сонтрол+це и контрол+вэ они одинаковы

Думкин (2004-08-18 14:35:00) [11]
> [15] Хыыыы (18.08.04 14:29)

1. Записи такие дикие - вынеси например в resourcestring
2. Используй Format
3. PChar(String)
4. ??

Digitman (2004-08-18 14:33:00) [12]

> Хыыыы (18.08.04 14:29) [15]

глаза-то разуй !
посмотри внимательнона всеотличия кода в [15] и [10] !

Хыыыы (2004-08-18 14:29:00) [13]
к тому что ошибка остаётся
"Несовместимые типы String и PAnsiChar", но теперь она не в
msg:=IntToStr(Query1.RecordCount);
а в
if Application.MessageBox('Удаление этой записи повлечёт за собой удаление '+msg+' записей из таблицы Table1'#13#10#13#10'Удалить запись?', 'Удаление записи', MB_YESNO)=ID_YES then Table1.Delete
а точнее в 'Удаление этой записи повлечёт за собой удаление '+msg+' записей из таблицы Table1'#13#10#13#10'Удалить запись?'

Digitman (2004-08-18 14:03:00) [14]

> Хыыыы (18.08.04 14:00) [13]

это ты к чему ?

Хыыыы (2004-08-18 14:00:00) [15]
> Digitman © (18.08.04 13:46) [12]

function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;

Digitman (2004-08-18 13:46:00) [16]

> Хыыыы (18.08.04 13:43) [10]

var msg: String;

msg:=IntToStr(Query1.RecordCount);
if Application.MessageBox(PChar('Удаление этой записи повлечёт за собой удаление '+msg+' записей из таблицы Table1'#13#10#13#10'Удалить запись?') 'Удаление записи', MB_YESNO)=ID_YES then Table1.Delete

Хыыыы (2004-08-18 13:46:00) [17]
плиз, сделайте предпросмотр сообщения перед отправкой....:(
var msg:Pchar; .... msg:=IntToStr(Query1.RecordCount); if Application.MessageBox('Удаление этой записи повлечёт за собой удаление '+msg+' записей из таблицы Table1'#13#10#13#10'Удалить запись?', 'Удаление записи', MB_YESNO)=ID_YES then Table1.Delete
Извините за флейм

Хыыыы (2004-08-18 13:43:00) [18]
сорри.........
var msg:Pchar; .... msg:=IntToStr(Query1.RecordCount); if Application.MessageBox('Удаление этой записи повлечёт за собой удаление '+msg+' записей из таблицы Table1'#13#10#13#10'Удалить запись?' 'Удаление записи', MB_YESNO)=ID_YES then Table1.Delete

Хыыыы (2004-08-18 13:41:00) [19]
Не работает......пишет "Несовместимые типы String и PAnsiChar" var msg:PChar; .... msg:=IntToStr(Query1.RecordCount); if Application.MessageBox('Удаление этой записи повлечёт за собой удаление '+msg+' записей из таблицы Table1'#13#10#13#10'Удалить запись?' 'Удаление записи', MB_YESNO)=ID_YES then Table1.Delete

VMcL (2004-08-18 10:44:00) [20]
>> Anatoly Podgoretsky © (18.08.04 10:17) [4]

Совершенно верно. Но я, к примеру, в своих программах специально пишу явное преобразование в PChar->String, чтобы быть осторожнее, когда что-то исправляю.

>> Семен Сорокин © (18.08.04 10:08) [3]

И StrPas(...) и String(...) - явные приведения, просто StrPas вызывать смысла нет (по крайней мере в последних версиях Delphi), потому что StrPas всё равно содержит код такого вида:

function StrPas(P: PChar): String; begin Result := P; // или Result := String(P); - не помню точно, это не важно end;

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »