Neregistrovaný Přihlásit Registrovat

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
Chybku jsem tam mněl :-[ procedure TForm1.FormCreate(Sender: TObject); var TS: TStringList; B: TBut…
Vašek.P 01.07.2016 22:38
 Vašek.P
Zrejme jsi se nekoukal na kod, ktery jsem ti nahore daval, vid? Do hintu tlacitka jsem ulozil adresu… nový
Jan Fiala 02.07.2016 15:48
 Jan Fiala
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

Chybku jsem tam mněl :-[

procedure TForm1.FormCreate(Sender: TObject);
var
 TS: TStringList;
 B: TButton;
 s,m:string;
 i:integer;
begin
  TS := TStringList.Create;
  TS.LoadFromFile('setup.txt');

  for i  := 0 to TS.Count-1 do
  begin
    s:= TS[i];
    B := TButton.Create(Self);
    B.Caption := Format(Copy(s, 1, Pos(',', s)-1), [i]);
    m := Copy(s, Pos(',', s) + 1, MaxInt);
    B.Parent := Self;
    B.Height := 23;
    B.Width := 100;
    B.Left := 10;
    B.Top := 10 + i * 25;
    B.OnClick := Form1.Button1Click;
  end;
  TS.Free;
end;

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