Оффтоп:
Цитата:
|
Сообщение от Decoding
Как загрузить...
|
Хороший сайт, даже откопал там койчего интересного, ранее не виданного, спасибки, жаль, что заброшенный, обновления в прошлом году закончились. Ну и на титульной в приветствии...
Код:
procedure TSite.SiteCreate(Sender: TObject);
var
s: string; // Стринг ведь
begin
s := 'Мне нужны материалы по программированию на Delphi';
// Компилятор дальше ашипку выдает на несоответствие типов :-)
if s = true then
ShowMessage( 'Добро пожаловать на мой сайт' )
else
Exit;
end; исправьте чтоли, а то в глаза больно лезет