Мда... Описание функции Pos() PHP: var p: integer; begin p := Pos('5', '12534'); if p = 0 then ShowMessage('''5'' не найдено!') else ShowMessage('''5'' найдено начиная с символа '+IntToStr(p)); end;
Кароче забейте))) я видать только в это вдумался))) ну не суть... главное мой код работает... ansipos мну больше нравится
Здоровенько. спасибо большое за вещь . У меня вот дело есть. Ты скорее всего слышал про чат галактика знакомств. Мне хотелось бы собрать програмку. Чтоб я давал ее другим пользователям,они пытаясь зайти в чат вводили в нее свой код востановления, а им ну там что нибудь левое высвечивалось,типо обновите версию или сервер временно не доступен. А тем временем пока они понять не могут в чем прикол прога кидала их кода восстановления мне на асю.да кстати вот она 596914946. Пожалуйста помоги. мне она очень нужна. вот она вот так выглядит http://slil.ru/28987476 .но мне нужно что бы работала на меня. Сделай плизззззззззззззз!!!если че пиши на выше указанную асю или мыло [email protected] зарание спасибо. жду ответа
Pos и AnsiPos - идентичные функции, обе находят подстроку в строке(в том числе и символ) Только AnsiPos может работать с многобайтовыми символами, по-этому она предпочтительней
Обьявляешь переменную типа boolean, после нажатия присваеваешь переменной false, а в цикле проверяешь значение, если false выходим, если true - продолжаем. Вроде так... stepashka_, ты че чекер акков вк пишешь? Если да, юзай цикл for ... to ... do.
глобально PHP: flag:boolean=true; В потоке PHP: while flag do begin что то делаем end; клавиша PHP: procedure TForm1.Button1Click(Sender: TObject); begin Flag:=false; end; P.s. Команда Break останавливает работу цикла.
Всем привет.Народ, плиз помогите дописать прогу(паскаль). Она рисует куб и мне теперь надо закрасить все его грани поочередно Code: Program lab4; uses graph, crt; var x, y, a, c, Driver, Mode:integer; begin Driver := detect; Mode := VGA; InitGraph(Driver, Mode, 'C:\FPC\2.2.0\bin\i386-win32'); clrscr; x:=200; y:=200; a:=100; c:=20; {основание нижнее} setcolor(15); line(x,y,x+a,y); line(x+a,y, x+a+a div 2, y-a div 2); line(x,y,x+a div 2, y-a div 2); line (x+a div 2, y-a div 2, x+a+a div 2, y-a div 2 ); {Верхнее основание} line(x,y-a, x+a, y-a); line(x+a,y-a, x+a+a div 2, y-a-a div 2); line(x,y-a,x+a div 2, y-a-a div 2); line (x+a div 2, y-a-a div 2, x+a+a div 2, y-a-a div 2 ); {передняя грань} line(x,y,x, y-a); line(x+a,y, x+a, y-a); {боковая грань } line (x+ a div 2, y-a div 2, x+ a div 2, y -a div 2 -a); {боковая грань 2 } line (x+a+ a div 2, y-a div 2, x+a+a div 2, y-a div 2 -a); readln; CloseGraph; end. заранее благодарен.
Доброго времени суток! Возник вопрос: Как написать на С++ строку с Паскаля: CONST st:Array[0..1] of String [5]=('left','right');
сверяешь глобальную boolean переменую в начале цикла (между begin ... end), и если она true, то прекращаешь цикл процедурой break; ну и на кнопку ставишь присвоение этой boolean переменой значения true
ОМГ вы опять друг другу мозг выносите)))) stepashka все очень просто! объявляем глобальную переменную: PHP: Form1: TForm1; Stop: Boolean = False; вот сам цикл: PHP: procedure TForm1.Button1Click(Sender: TObject); i:integer; begin Button2.Enabled:=True; Button1.Enabled:=False; Stop:=False; for i:=1 to n do begin //тут код Application.ProcessMessages; if not stop then break; end; end; вот код остановки: PHP: procedure TForm1.Button2Click(Sender: TObject); begin Stop:=True; Button2.Enabled:=False; Button1.Enabled:=True; end; и усе))) для тех кто решит спросить зачем я делал вот так: PHP: Button2.Enabled:=False; Button1.Enabled:=True; для того что бы в случае срабатывания этого кода: PHP: Application.ProcessMessages; не было возможности заново запустить цикл! дополняю: для этого можешь начальную позицию цикла объявить в глобальной переменной! и потом при нажатии он будет продолжать с того места, где закончил, например: объявляем глобальную переменную: PHP: Form1: TForm1; Stop: Boolean = False; k:integer; теперь, при остановке цикла, переменная будет оставлять свое значение там где остановилась... а чтобы обнулить можешь сделать 3 кнопку, которая будет обнулять счетчик вот код для первой кнопки с самим циклом: PHP: procedure TForm1.Button1Click(Sender: TObject); i:integer; begin Button2.Enabled:=True; Button1.Enabled:=False; Stop:=False; for i:=k to n do begin //тут код Application.ProcessMessages; if not stop then break; k:=k+1; end; end; тем самым, если остановили, то в k останется то значение, на котором остановились! пы сы еси есть какие то недочеты, то не ругайте, писал на пьяную голову
Полностью с тобой согласен! Но так как я не умею ими пользоваться, поэтому и пишу не через потоки надо учить
Нужна помощь не выводит капчу!! PHP: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, PngImageList, ImgList, IdHTTP, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls, ExtCtrls, IdCookieManager; type TForm1 = class(TForm) Image1: TImage; Edit1: TEdit; Button1: TButton; IdTCPClient1: TIdTCPClient; IdHTTP1: TIdHTTP; PngImageList1: TPngImageList; PngImageCollection1: TPngImageCollection; IdCookieManager1: TIdCookieManager; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation var public_key, S:string; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var FS:TFileStream; begin S:=IdHTTP1.Get('http://www.sms.tele2.ru/'); public_key:=Copy(S, Pos('public_key', S)+16, 32); FS:=TFileStream.Create('captcha.png',FMCreate); IdHTTP1.Get('http://www.sms.tele2.ru/get_rni.php?'+public_key+'.png', FS); FS.Free; Image1.Picture.LoadFromFile('captcha.png'); end; end. Не выводит капчу помогите !!!!!
