Informatika és tudomány

Hogyan lehet lekerdezni az IP cimet Delphiben?
  • PetruZ
    #20
    Többféle megoldás is lehetséges, a legegyszerűbb lényege:

    abetu:=0;
    s:=edit1.text;
    for i:=1 to length(s) do
    if s in [ 'a', 'A' ] then inc(abetu);
    label1.caption:=inttostr(abetu);