LINUX.ORG.RU

История изменений

Исправление furlong, (текущая версия) :

я просто оставлю это здесь. Вебсервер там уже есть, всегда готовый к бою. Компоненты доступа к данным любые, которые есть в Delphi. Вот пример заполнение грида:

procedure TformMain.IWAppFormCreate(Sender: TObject);

var i: Integer; link: TIWURL;

begin // set grid titles IWGrid1.Cell[0, 0].Text := ‘Row’; IWGrid1.Cell[0, 1].Text := ‘Owner’; IWGrid1.Cell[0, 2].Text := ‘Web Site’;

// set grid contents for i := 1 to IWGrid1.RowCount - 1 do begin IWGrid1.Cell [i,0].Text := ’Row ’ + IntToStr (i+1); IWGrid1.Cell [i,1].Text := ‘IWTwoForms by Marco Cantù’; link := TIWURL.Create(Self); link.Text := ‘Click here’; link.URL := ‘http://www.marcocantu.com’; IWGrid1.Cell [i,2].Control := link; end; end;

Исправление furlong, :

я просто оставлю это здесь. Вебсервер там уже есть, всегда готовый к бою. Компоненты доступа к данным любые, которые есть в Delphi. Вот пример заполнение грида:

procedure TformMain.IWAppFormCreate(Sender: TObject);

var i: Integer; link: TIWURL; begin // set grid titles IWGrid1.Cell[0, 0].Text := ‘Row’; IWGrid1.Cell[0, 1].Text := ‘Owner’; IWGrid1.Cell[0, 2].Text := ‘Web Site’; // set grid contents for i := 1 to IWGrid1.RowCount - 1 do begin IWGrid1.Cell [i,0].Text := ’Row ’ + IntToStr (i+1); IWGrid1.Cell [i,1].Text := ‘IWTwoForms by Marco Cantù’; link := TIWURL.Create(Self); link.Text := ‘Click here’; link.URL := ‘http://www.marcocantu.com’; IWGrid1.Cell [i,2].Control := link; end; end;

Исправление furlong, :

я просто оставлю это здесь. Вебсервер там уже есть, всегда готовый к бою. Компоненты доступа к данным любые, которые есть в Delphi. Вот пример заполнение грида:

procedure TformMain.IWAppFormCreate(Sender: TObject); var i: Integer; link: TIWURL; begin // set grid titles IWGrid1.Cell[0, 0].Text := ‘Row’; IWGrid1.Cell[0, 1].Text := ‘Owner’; IWGrid1.Cell[0, 2].Text := ‘Web Site’; // set grid contents for i := 1 to IWGrid1.RowCount - 1 do begin IWGrid1.Cell [i,0].Text := ’Row ’ + IntToStr (i+1); IWGrid1.Cell [i,1].Text := ‘IWTwoForms by Marco Cantù’; link := TIWURL.Create(Self); link.Text := ‘Click here’; link.URL := ‘http://www.marcocantu.com’; IWGrid1.Cell [i,2].Control := link; end; end;

Исходная версия furlong, :

я просто оставлю это здесь. Вевсервер там уже есть, всегда готовый к бою. Компоненты доступа к данным любые, которые есть в Delphi. Вот пример заполнение грида:

procedure TformMain.IWAppFormCreate(Sender: TObject); var i: Integer; link: TIWURL; begin // set grid titles IWGrid1.Cell[0, 0].Text := ‘Row’; IWGrid1.Cell[0, 1].Text := ‘Owner’; IWGrid1.Cell[0, 2].Text := ‘Web Site’; // set grid contents for i := 1 to IWGrid1.RowCount - 1 do begin IWGrid1.Cell [i,0].Text := ’Row ’ + IntToStr (i+1); IWGrid1.Cell [i,1].Text := ‘IWTwoForms by Marco Cantù’; link := TIWURL.Create(Self); link.Text := ‘Click here’; link.URL := ‘http://www.marcocantu.com’; IWGrid1.Cell [i,2].Control := link; end; end;