Informatika és tudomány

Hogyan lehet lekerdezni az IP cimet Delphiben?
  • hmhm
    #162
    a sorrend kicsit hibás..

    procedure TUgralo.ugroLClick(Sender: TObject);
    begin
    n:=(n+1) mod 3;
    //-- innen
    if n=0 then ugroL.Alignment:=taLeftJustify;
    if n=1 then ugroL.Alignment:=taCenter;
    if n=2 then ugroL.Alignment:=taRightJustify;
    //-- ide
    if n=2 then
    begin
    n:=-n;
    valami.caption:='lál';
    end;
    end;


    Pedig ezt az n=2 dolgot az előző kódrészletekben jól írtad.