а у мя снова трабла =\ StrToInt('й'); прога вылетает, хотя по идее должна вернуть 0... ну пых возвращает 0 =\ А дельфи говорит "й is not integer value" И чё делать
Try, except: Code: x:string; Try StrToInt(x); except(выполняется в случае возникновения ошибки) //выводим сообщение об ошибке или еще что-то Можно еще обработчик ошибок отключить: {$I-} //выключаем код {$I+} //включаем
h(f)ucker, круто работает Мля, не... Я чёто там нето сделал или хз, в общем делаю так Try ID := StrToInt(text); end; и он просит "EXCEPT" непонимаю как юзать... Мне надо если не получилось, то сделать ID := 0; ============= PHP: Try count := StrToInt('q'); except count := 0; End; вот так компилится, но всёравно падает с ошибкой
Товарищи может кто нибудь решить первую задачу PASCAL ABC с FOR и WHILE http://ipicture.ru/upload/100422/85oWRRrV7g.jpg
делаеш строку согласных буков строку гласных буков и ставиш их друг за другом (отпределяеш на чётность i или чё ты юзаеш) и получается очень даже ничего
не помогло... компоненты установил, но их не видно (( НУ СКАЖИТЕ КАК ПОДКЛЮЧИТЬСЯ К БАЗЕ MYSQL ПРОБОВАЛ ЭТУ СТАТЬЮ, ВЫДАЛО ОШИБКУ ЧТО ПРОБЛЕМЫ С ФАЙЛОМ. ПИШЕТ "НЕВОЗМОЖНО ЗАГРУЗИТЬ libmysql.dll", ХОТЯ ЭТОТ ФАЙЛ ЕСТЬ В ПАПКЕ С ПРОГОЙ... И ЧЁ ДЕЛАТЬ ХЗ
PHP: uses crt; var n,i:integer; s:real; begin clrscr; writeln('Vvedite N'); readln(n); i:=1; while i<=n do begin s:=sqrt(s+sqrt(2*i)); i:=i+1; end; writeln('s=',s:3:3); readln; end.
Ребят есть пару вопросов: 1. в мемо записываю какието записи, есть ли кактео ограничения, если доп хочу загрузить в мемо 1лям мыл не зависнет, или лутше все считывать из текстового файла в массив 2.как увеличить скорость загрузки программы? 3. как делаються счетчики элементарные в дельфи и таймер
Здравстуйте,помоги плз решить один вопросс: Вот пишу icq bot и хочу что бы он мог обрабатывать сразу несколько комманд одновременно, тоесть как я понял делается это через потоки, ток немогу сообразить как... P.S дайте кто нить пример кода...
Дельфи Подскажите, есть edit1 edit2 как сделать что бы при нажатии на button данные из edit1 edit2 записывались в тхт файл на сервере? Например www.сайт.ru/акк.txt
PHP: procedure TForm1.Button1Click(Sender: TObject); begin IdFTP1.Host := 'host'; IdFTP1.Username := 'login'; IdFTP1.Password := 'pass'; IdFTP1.Connect(true); IdFTP1.Put(Edit1.Text,'test.txt' ,false); IdFTP1.Disconnect; end; компонент IdFTP1 и антифриз
Ребят есть пару вопросов: 1. в мемо записываю какието записи, есть ли кактео ограничения, если доп хочу загрузить в мемо 1лям мыл не зависнет, или лутше все считывать из текстового файла в массив 2.как увеличить скорость загрузки программы? 3. как делаються счетчики элементарные в дельфи и таймер
вот пример точно будет работать... PHP: Procedure TForm1.Button1Click(Sender: TObject); var F : TextFile; S : String; Begin idFTP1.Host := 'Host'; idFTP1.Port := 21; idFTP1.Username := 'Username'; idFTP1.Password := 'Password'; idFTP1.Connect; AssignFile(F, 'test.txt'); Rewrite(F); S := Edit1.Text; WriteLn(F,S); CloseFile(F); IdFTP1.Put('test.txt', 'test.txt', False); End; procedure TForm1.Button2Click(Sender: TObject); begin IdFTP1.Disconnect; end; и не забудь поставить passive = true
1. Лучше массив или StringList, по простой причине не будет отображаться значит скорость больше, но если все же надо отображать, то есть команды вроде как увеличивывают скорость. PHP: Memo1.Lines.BeginUpdate; Memo1.Lines.EndUpdate; 2. При запуске грузить минимум, а потом уже подгружать. типа программа, а база мыл и т.д. уже потом. 3. Поток+Цикл+Sleep = таймер
На форумах полазий, там есть измененый libmysql.dll который работает на ура. Просто для MySQL 4.xx не подходит файл от 5, так же как для 5 файл от 5.1. Но есть чуть измененые которые работают и на 5 и на 4 версиях сервера.
