Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Delphi - button

Zdravím tu všechny.
Z delphi znam jen zaklady co do mně tlačili před par lety ve škole.
Poradte nebo mně někam nasměrujte.

Vytvořím prazdný form1 určite šiřky a 0 vyšky.

Další form 2 bude jako setup - přidej button.

Přes tento setup form bych chtěl, abych si moh přidat do form1 třeba 5 buttonu pod sebou.
V každem buttonu by bylo tohle, jen adresa jina a ukladat třeba do ini.

var
  lHTTP: TIdHTTP;
s: string;
begin
  lHTTP := TIdHTTP.Create(nil);
  try
    s := lHTTP.Get('http://192.168.15.44');
  finally
    lHTTP.Free;
  end;
Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
premennú m:String {m := Copy(s, Pos(',', s) + 1, MaxInt);} nikde nepoužiješ - čo s stým chceš ďalej… nový
Vašek.P 02.07.2016 21:36
Vašek.P
Tak vyřešeno. Nakonec jsem to nacpal do StringGridu. poslední
Vašek.P 03.07.2016 10:44
Vašek.P

premennú m:String {m := Copy(s, Pos(',', s) + 1, MaxInt);} nikde nepoužiješ - čo s stým chceš ďalej robiť?

V tom m je vždy načtena ta adresa 192.168.1.15, 192.168.1.20, 192.168.1.28

Zapní1,http://192.168.1.15
Zapní2,http://192.168.1.20
Zapní3,http://192.168.1.28

Ja myslel, že když v procedure TForm1.Button1Click změním to s:= lHTTP.Get('192.168.1.15');
na s:= lHTTP.Get(m); tak každy buton bude mit jinou adresu.

Zpět do poradny Odpovědět na původní otázku Nahoru