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

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    какие?
     
  2. buket

    buket New Member

    Joined:
    7 Apr 2007
    Messages:
    21
    Likes Received:
    0
    Reputations:
    0
    убери TForm1.
    или перед private добавь function Pars(T_, ForS, _T: string): string;
     
  3. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    buket все ок скомпилировал, но в лог всё равно не выводит друзей(
     
  4. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    [offtop]
    stepashka_, блин..начинаешь реально уже бесить.
    Люди чтоли все время будут за тебя все придумывать\писать?
    Думай\делай сам, у тебя должна быть своя голова на плечах...
    [/offtop]
     
  5. [STH]

    [STH] Banned

    Joined:
    8 Dec 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    При компилирование нет ошибок, но при запуске пишит

    [​IMG]

    и указывает на
    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.
     
  6. Vlad3d

    Vlad3d Elder - Старейшина

    Joined:
    18 Jan 2008
    Messages:
    47
    Likes Received:
    54
    Reputations:
    -1
    [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.
     
  7. [STH]

    [STH] Banned

    Joined:
    8 Dec 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    Vlad3d, спс...забыл что можно заюзать копи))
     
  8. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    здравствуйте!
    задача такая:
    делаю get запрос, через инди, на сайт.
    там проверяются данные, и если они правельные меня редиректит.
    Возможно ли узнать на какой урл меня перебросило?
     
  9. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    idhttp1.Response.Location
     
    2 people like this.
  10. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    пусто там
     
  11. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    handleredirects := true ?
     
  12. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    да
     
    1 person likes this.
  13. bmp152

    bmp152 New Member

    Joined:
    25 May 2009
    Messages:
    8
    Likes Received:
    2
    Reputations:
    0
    idhttp1.Response.Location возвращает урл, на который редиректит вроде только если у тебя стоит redirectMaximum = 0
    Попробуй IdHTTP1.URL.GetPathAndParams, если будет просто 1 слеш то ты на главной.
     
    1 person likes this.
  14. koSteck

    koSteck Member

    Joined:
    27 Nov 2008
    Messages:
    5
    Likes Received:
    34
    Reputations:
    0
    ПРИВЕТ, ДРУЗЬЯ!)

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

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

    [PASCAL]
     
    1 person likes this.
  15. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5
    пиши мне в аську или в личку! еси не трудно то бесплатно сделаю!
     
    1 person likes this.
  16. Serhiy79

    Serhiy79 New Member

    Joined:
    27 Apr 2010
    Messages:
    2
    Likes Received:
    2
    Reputations:
    0
    подскажите с чего начать учить паскаль??
    дайте ссиль на хороший учебник..
     
    2 people like this.
  17. SkyLine32

    SkyLine32 Member

    Joined:
    1 Mar 2009
    Messages:
    144
    Likes Received:
    22
    Reputations:
    2
    куча хороших учебников ;)
     
  18. EndLeSSDre@M

    EndLeSSDre@M Banned

    Joined:
    18 Jul 2009
    Messages:
    142
    Likes Received:
    99
    Reputations:
    -5
    http://delphistudio.ru/ вот это отличный сайт)))

    п.с. SkyLine32 пиар :rolleyes:
     
    1 person likes this.
  19. crazyserega1994

    crazyserega1994 Elder - Старейшина

    Joined:
    25 Dec 2007
    Messages:
    27
    Likes Received:
    3
    Reputations:
    0
    Вот делаю чекер прокси, и хочу спросить, как игнорировать ошибки? Просто если прокси плохой, то вылазит ошибка "Socket error...", а мне надо, чтобы оно ее игнорило, как так сделать? :3
     
  20. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    try
    проверка
    except
    обработка ошибки
    end;
     
Thread Status:
Not open for further replies.