desTiny, в рот мне ноги Х_Х Работает А ещё вот так [Error] Unit2.pas(113): Undeclared identifier: 'a' Нужно объявить переменную, я вот так пытаюсь procedure TForm1.btn1Click(Sender: TObject); var a: array; нехочет... Это мне для Code: a := explode(',','test,test,tets', 0) ; for i := 0 to High(a) do begin showMessage(a[i]); end; ппц тупорылый язык, в пыхе нет такого гемороя, а здесь вобще чёрт пойми, что меня поражает так это комментарии { ... } этож ваще ппц... ПРи этом идёт какой-то код и тама есть {$R *.dfm} ну так это комментарий, удаляю грит верни обратно! Ппц, анунах........
{$R *.dfm} - Эта деректива, подключающая ресурсы [Error] Unit2.pas(113): Undeclared identifier: 'a', ты пытаешься объявить массив, массив чего??? var a: array of TYPE!!!!
W!z@rD, О-М-Г, массив чего-то Х_Х Тупорылый язык! a := explode(',','test,test,tets', 0) ; Ну это строки я так понимаю, значит var a: array of String; Жалуется на строку a := explode(',','test,test,tets', 0) ; со словами [Error] Unit2.pas(114): Incompatible types
Попрошу не говорить так. Почему если что-то отлично от того, к чему ты привык, то оно обязателно "тупорыло"?
Посмотри описание функции explode, что она возращает. То что возращает и будет типом массива p.s. не говори так больше, язык не плохой... =\
W!z@rD, а я вобще в ней невижу слова return, она вобще хоть что-то возвращает? Или в дельфи это работает как-то через хитро закрученую ж**у? Зайди в IRC будет быстрее и удобнее =\
Ponchik, переменные должны быть того же типа что возвращает функция - эксплод в твоём случае возвращает тип TArray, значит и a дожны быть TArray
desTiny, ну string/integer/array чоб показывало Напрмер var_dump('123') скажет что это string И ещё вопрос, вот мне эта функция explode мешает, много места занимает =\ Можно-ли её как-то сныкать в другой файл и потом типа include запросить её, ну а её куданить ну в dll пихнуть, ну в общем разбить код на части
а) если у тебя переменная задана типа var a: integer; то a навеки останется integer'ом... Точно так же константам присваивается тип однозначно. так что смысла в том, о чём ты говоришь, нету. б) создаёшь новый юнит, фигаришь туда свою функцию (либо совсем тупо, либо отельно заголовок до слова implementation, и всю функу после), а потом пишешь оттуда, где хочешь юзать функу - uses Unit2
Вот есть у меня такой кодик, я хочу отправить файл PHP: procedure SendEmail(sTo, sFile: String); var M: TIdMessage; begin M := TIdMessage.Create(Form1); M.Body.Add('Files'); M.From.Text := '"Vet" <[email protected]>'; //отправитель M.Recipients.Add; M.Recipients.Items[0].Text := '"Post" <'+sTo+'>'; M.MessageParts.Add; TIdAttachment.Create(m.MessageParts,sFile); M.Subject := ':)'; //Тема письма Form1.IdSMTP1.AuthenticationType := atLogin; Form1.IdSMTP1.Host := 'smtp.pisem.net'; Form1.IdSMTP1.Username := '[email protected]'; Form1.IdSMTP1.Password := '*******'; Form1.IdSMTP1.Connect(); if Form1.IdSMTP1.Connected then begin Form1.IdSMTP1.Send(M); end; Form1.IdSMTP1.Disconnect; end; Но делфя по чему то выдаёт мне Ошибки в этих строчках: TIdAttachment.Create(m.MessageParts,sFile); Form1.IdSMTP1.AuthenticationType := atLogin; И пишет мне это: PHP: [DCC Error] Unit1.pas(210): E2003 Undeclared identifier: 'TIdAttachment' [DCC Error] Unit1.pas(210): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(213): E2003 Undeclared identifier: 'AuthenticationType' [DCC Error] Unit1.pas(213): E2003 Undeclared identifier: 'atLogin' [DCC Error] svshost.dpr(11): F2063 Could not compile used unit 'Unit1.pas' Кто знает как это исправить?
xaker-boss, у тебя не существует TIdAttachment, надо его кагбы создать сначало http://forum.vingrad.ru/forum/s/72a6918e29f4b4524b74845652ec71aa/topic-152032.html ======================== Блина, вот проблема ппц, я незнаю чё делать Х_Х В общем есть у меня поле, прикрутил к нему UpDown кнопки, если число больше 1000 то ставится пробел, тоесть 1 000 мне это число надо отправить на сервер через WebBrowser я юзаю str.Text - это и есть число с пробелом 1 000 wb1.Navigate('http://127.0.0.1/script.php?status=ok&number=' + str.Text + '&something=tralala'); в скрипте script.php записавыю QUERY_STRING в файл, смарю в файл и чё =\ Записывается status=ok&number=1 Всё остальное отрубается (( Как запретить полю делить числа пробелами, пытался вырезать эти пробелы, нащёл в гугле str_replace всёравно не помогло Пытался IntToStr он грит типа немогу StrToInt грит несовместим int и str, или наоборот, ну неважно! Надо запретить делить пробелами =\ Если выполнить str.Text := 1000; то оно нормально будет отображаться без пробелов, но если клацнуть на updown сразу делиться =\
xaker-boss Ponchik 1 - использовать Replace(' ', ''); 2 - искать и удалять пробелы 3 - имхо самый вариант, использовать компонент TSpinEdit (вкладка Samples)
А подскажитека код, чтобы при нажатию на кнопку делался скрин рабочего стала и сохранялся дапустим в C:\
showmessage(StrReplace(pole.Text,' ','')); выводит 1 000 всёравно =\ А, strreplace Это из гугла функция, а Replace нету [Error] Unit2.pas(127): Undeclared identifier: 'Replace' showmessage(IntToStr(ord(str.Text[2]))); 160 Щас попробую chr(160) заменить на '' Мы пабедиле!!11 Пробел кстате это 32 Всё, всё отлично отправляется в скрипт Гугол Code: Chr(160) - это неразрывный пробел. Т.е. отображается как пробел, но переносить по нему слова нельзя. Мне кажеться или это Code: [01:05:22] <v01d> свойство [01:05:28] <v01d> для updown [01:05:32] <v01d> thousand [01:05:34] <v01d> тысячи [01:05:38] <v01d> и поставь false ВСЁ МЛЯ! Никаких пробелов! ёпрст!!!11
Ну вот так например можно: Code: #include <atlimage.h> #include <Gdiplusimaging.h> //... CBitmap bitmap; bitmap.CreateBitmap(width, height, 1, 32, rgbData); CImage image; image.Attach(bitmap); image.Save(_T("C:\\test.bmp"), Gdiplus::ImageFormatBMP); И вот статейка интересная screenshot в буффер переноситься, но можно и сразу в файл статья
