[делфи] Исправьте меня

[zotox]

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 list:TStringList;
 a,b:string;
 Captcha: TMemoryStream;
 u:integer;
begin
 Captcha:=TMemoryStream.Create;
 list:=TStringList.Create;
 i:=i+1;
 a:=IdHTTP1.Get(memo2.Lines(i));
 u:=pos('secure/'+7,a);
 b:=copy(a,u,15);
 IdHTTP1.Get(memo2.lines(i)+'gb/secure/'+b,Captcha);
 Captcha.SaveToFile('captcha.png');
 Captcha.Free;
 Image1.Picture.LoadFromFile('captcha');
 list.Add('name='+edit1.text);
 list.Add('message='+memo1.Text);
 list.Add('code='+edit4.text);
 IdHTTP1.Post(memo2.Lines(i)+'gb/', list);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 i:=0;
end;

сабж много ошибок в коде
где memo2.lines(i) там номер строки откуда берем сылку
в часности токо ошибки такого вида

Missing operator or semicolon (3 штуки)
и
Incompatibal types: 'String' and 'Integer' (1 штука)
и
Incompatibal types: 'String' and 'TString' (1 штука)

пытаюсь построить запрос отправки в гостевую книгу (сайтов каторые в memo2) системы ucoz.ru (хостинг)

[Terran]

Исправил ошибки в вашем коде. Надеюсь исправил правильно.

var
i: integer;
procedure TForm1.Button1Click(Sender: TObject);
var
 list:TStringList;
 a,b:string;
 Captcha: TMemoryStream;
 u:integer;
begin
 Captcha:=TMemoryStream.Create;
 list:=TStringList.Create;
 i:=i+1;
 a:=IdHTTP1.Get(memo2.Lines[i]);
 u:=pos('secure/'+inttostr(7),a);
 b:=copy(a,u,15);
 IdHTTP1.Get(memo2.lines[i]+'gb/secure/'+b,Captcha);
 Captcha.SaveToFile('captcha.png');
 Captcha.Free;
 Image1.Picture.LoadFromFile('captcha');
 list.Add('name='+edit1.text);
 list.Add('message='+memo1.Text);
 list.Add('code='+edit4.text);
 IdHTTP1.Post(memo2.Lines[i]+'gb/', list);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 i:=0;
end;

[VVM]

Ну вроде вот так ошибок нет.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Memo2: TMemo;
    Image1: TImage;
    Edit1: TEdit;
    Memo1: TMemo;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  list: TStringList;
  a, b: string;
  Captcha: TMemoryStream;
  u: integer;
begin
  Captcha := TMemoryStream.Create;
  list := TStringList.Create;
  i := i + 1;
  a := IdHTTP1.Get(memo2.Lines.Strings[i]);
  u := pos('secure/7', a);
  b := copy(a, u, 15);
  IdHTTP1.Get(memo2.lines.Strings[i] + 'gb/secure/' + b, Captcha);
  Captcha.SaveToFile('captcha.png');
  Captcha.Free;
  Image1.Picture.LoadFromFile('captcha');
  list.Add('name=' + edit1.text);
  list.Add('message=' + memo1.Text);
  list.Add('code=' + edit4.text);
  IdHTTP1.Post(memo2.Lines.Strings[i] + 'gb/', list);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
end;

end.

[zotox]

Да спасибо

ЗЫ

memo2.Lines(i)-вот это реально я чета загнул =D

[DomKr@t]

Incompatibal types: 'String' and 'Integer' (1 штука)
и
Incompatibal types: 'String' and 'TString' (1 штука)
[/QUOTE]
I ошибка: пытаишся присвоить строке значение целого числа! Нужно делать
var str:string;
int:integer;
...
str:=floattostr(int);
...
II ошибка: Аналогично первой. Тока одной строке пытаешся присвоеть значение многих строк (Посмотри в memo свойство Lines-откроется редактор-эт тот тип)

[DomKr@t]

блн не успел

[zotox]

I ошибка: пытаишся присвоить строке значение целого числа! Нужно делать
var str:string;
int:integer;
...
str:=floattostr(int);

мм... float он используеться чаще всего в не целых числах лучше сделать тогда так

str:=inttostr(int);