[offtop] stepashka_, блин..начинаешь реально уже бесить. Люди чтоли все время будут за тебя все придумывать\писать? Думай\делай сам, у тебя должна быть своя голова на плечах... [/offtop]
При компилирование нет ошибок, но при запуске пишит и указывает на c:=s[a]; в чем может быть проблема????? задание: Вывести последовательно по нажатию кнопки в текстовом поле весь алфавит (прописные английские буквы). КАЖДОЕ НАЖАТИЕ КНОПКИ - ДОБАВЛЯЕТСЯ ОДНА БУКВА Code: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var c:char; s:string; a:integer; begin s:='BCDEFGHIKLMNOPQRSTVXYZ'; a:=a+1; c:=s[a]; if Edit1.Text='' then Edit1.Text:='A' else Edit1.Text:=Edit1.Text+c; end; procedure TForm1.FormCreate(Sender: TObject); var a:integer; begin a:=0; end; end.
[STH] Code: var Form1: TForm1; a:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var c:string; s:string; begin a:=a+1; s:='BCDEFGHIKLMNOPQRSTUVXYZ'; c:=copy(s,a,1); if Edit1.Text='' then Edit1.Text:='A' else Edit1.Text:=Edit1.Text+c; end; procedure TForm1.FormCreate(Sender: TObject); begin a:=-1; end; end.
здравствуйте! задача такая: делаю get запрос, через инди, на сайт. там проверяются данные, и если они правельные меня редиректит. Возможно ли узнать на какой урл меня перебросило?
idhttp1.Response.Location возвращает урл, на который редиректит вроде только если у тебя стоит redirectMaximum = 0 Попробуй IdHTTP1.URL.GetPathAndParams, если будет просто 1 слеш то ты на главной.
ПРИВЕТ, ДРУЗЬЯ!) КТО НИБУДЬ может помочь с решением курсовой?????????? (всего две задачи, думаю у вас они не вызовут затруднений, 1 курс) [PASCAL]
Вот делаю чекер прокси, и хочу спросить, как игнорировать ошибки? Просто если прокси плохой, то вылазит ошибка "Socket error...", а мне надо, чтобы оно ее игнорило, как так сделать? :3