Szia!

A Delphi Personal Edition letoltheto a netrol, ha beregisztralod magad
a Borland Communityy-be (teljesen ingyenes). De ebbol hianyzik minden
olyan komponens, ami "izgalmas". Inkabb affele demo-nak neveznem. Ha
nagy terveid vannak, erdemes megvenni (v. megszerezni) az Enterprise
Edition-t (asszem ez a neve).


scs

Ezt valamikor nagyon regen irtam clipperben:

Function SzemSzamEll(Szam)

  Local Ossz,I,Ok,Hossz

  If Empty(Szam) .Or. .Not. IsDigit(Szam)
    Return .T.
  EndIf
  If Empty(CToD(TransForm(SubStr(Szam,2,6),'@R 99.99.99')))
    Alert('Hibas datum a szemelyi azonositoban!')
    Return .F.
  EndIf
  Ok:=(Left(Szam,1)$'1256') .And. (Len(Szam)==11)
  If Ok
    Ossz:=0
    For I=1 To 10
      Ossz+=I*Val(SubStr(Szam,I,1))
    EndFor
    Ok:=(Ossz%11%10==Val(SubStr(Szam,11,1)))
  EndIf
  If .Not. Ok
    Alert('Hibas szemelyi azonosito!')
  EndIf
  Return Ok

Toth Peter

Kedves Tagok!

A szemelyi szammal kapcsolatos kerdesemre rengeteg valasz erkezett.
Mindenkinek nagyon koszonom. Remelem alkalom-adtan en is segithetek.
Udv

                  Tokes Krisztian

Sziasztok!

DOS alatt kellene irni + olvasni a vinyot nem BIOS megszakitasokkal
hanem kozvetlenul DMA segitsegevel. Foleg IDE vinyokrol lenne szo, de
SCSI sem lenne rossz ;-)

Atturtam a netet de semmi hasznalhato informaciot nem talaltam ez
ugyben :-(

Nincs veletlenul valakinek otlete, hogyan lehetne ezt megoldani?

Barmi otletet szivesen fogadok, akar kodresz, szoveg,
URL, konyvcim, stb... formajaban ami kicsit elobbre tudna vinni.

Legyszi maganba is kuldjetek mert a listat nem mindig tudom olvasni.

Elore is hatalmas koszonet !

Jones