How could WriteUDT be coded to receive other UDT's?
I want to pass records from any file to this function.
TheRecord AS RecordType is hard-code to a single UDT.
Code:
TYPE RecordType Counter AS DWORD UserName AS STRING * 30 Password AS STRING * 30 END TYPE FUNCTION PBMAIN AS LONG LOCAL sFileName AS STRING LOCAL record AS RecordType LOCAL result AS LONG LOCAL RecordNumber AS DWORD sFileName = "C:\SOMETHING.TXT" RecordNumber = 1 record.counter = 1 record.UserName = "HEIDI KLUME" record.Password = "RUNWAY" result = WriteUDT(sFileName, RecordNumber, Record) ? "Result of write" + STR$(result) END FUNCTION FUNCTION WriteUDT(sFileName AS STRING, RecordNumber AS DWORD, TheRecord AS RecordType) AS LONG 'How would this be coded to receive data from any UDT? LOCAL Retries AS LONG LOCAL hFile AS LONG FOR Retries = 1 TO 100 ERRCLEAR OPEN sFileName FOR RANDOM AS #hFile LEN = SIZEOF(TheRecord) IF ERR = 0 THEN EXIT FOR SLEEP 100 NEXT IF ERR THEN FUNCTION = ERRCLEAR: EXIT FUNCTION PUT #hFile, RecordNumber, TheRecord IF ERR THEN FUNCTION = ERRCLEAR: EXIT FUNCTION CLOSE #hFile IF ERR THEN FUNCTION = ERRCLEAR END FUNCTION
Comment