[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

какие?

 

убери TForm1.
или перед private добавь function Pars(T_, ForS, _T: string): string;

 

buket все ок скомпилировал, но в лог всё равно не выводит друзей(

 

[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.

 

Vlad3d, спс...забыл что можно заюзать копи))

 

здравствуйте!
задача такая:
делаю get запрос, через инди, на сайт.
там проверяются данные, и если они правельные меня редиректит.
Возможно ли узнать на какой урл меня перебросило?

 

idhttp1.Response.Location

 

пусто там

 

handleredirects := true ?

 

да

 

idhttp1.Response.Location возвращает урл, на который редиректит вроде только если у тебя стоит redirectMaximum = 0
Попробуй IdHTTP1.URL.GetPathAndParams, если будет просто 1 слеш то ты на главной.

 

ПРИВЕТ, ДРУЗЬЯ!)

КТО НИБУДЬ может помочь с решением курсовой??????????

(всего две задачи, думаю у вас они не вызовут затруднений, 1 курс)

[PASCAL]

 

пиши мне в аську или в личку! еси не трудно то бесплатно сделаю!

 

подскажите с чего начать учить паскаль??
дайте ссиль на хороший учебник..

 

куча хороших учебников

 

http://delphistudio.ru/ вот это отличный сайт)))

п.с. SkyLine32 пиар

 

Вот делаю чекер прокси, и хочу спросить, как игнорировать ошибки? Просто если прокси плохой, то вылазит ошибка "Socket error...", а мне надо, чтобы оно ее игнорило, как так сделать? :3

 

try
проверка
except
обработка ошибки
end;