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
|
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
|