Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
ReDim funktioniert mit UDT
| Uploader: |  ytwinky |
| Datum/Zeit: | 11.11.2007 16:54:05 |
'+--------------------------------------------------------------------------------------+
'| Header: Bestimmen der Übergabeparameter |
'| AnzeigeCheck:|Il1 sind Alt-0124, Großes i, kleines L, Eins „ä”öüáߎę֚Üñ±¸©ø°§=õ|
Const Author="AdressBuch.Bas v0182b ¸2007 by ytwinky, MD"' |
'| (Tastenkombination: keine) |
'| |
'| Zweck : Schablone für neue Dateien |
'+--------------------------------------------------------------------------------------+
'(Anmerkung zu den Sonderzeichen: zuerst steht das DOS-Zeichen, danach das Windowszeichen)
Const False=0, True=Not False, Pi=4.0*Atn(1.0), CrLf=!"\r\n"
Type Adresse
As String Name
As String Strasse
As Integer HausNr
As Integer PLZ
As String Ort
As String TelNr
End Type
Dim AdressBuch() As Adresse, s As String, i As Integer
For i=1 To 3
ReDim Preserve Adressbuch(i)
With Adressbuch(i)
Read .Name, .Strasse, .HausNr, .Ort, .PLZ,. TelNr
End With
Next
Data "Tick Duck", "Entenstraáe", 1, "Entenhausen", 4711, "0815/1337"
Data "Trick Duck", "Entenstraáe", 1, "Entenhausen", 4711, "0815/1337"
Data "Track Duck", "Entenstraáe", 1, "Entenhausen", 4711, "0815/1337"
?Author
?UBound(Adressbuch) &" Einträge"
For i=1 To 3
With Adressbuch(i)
s="EintragNr. " &i &CrLf
s+=.Name &CrLf
s+=.Strasse &" " &.HausNr &CrLf
s+=.PLZ &" " &.Ort &CrLf
s+=.TelNr &CrLf
End With
?s
Next
?"Eniki..";
Sleep
End