fb:porticula NoPaste
Function StringWiederholung
| Uploader: | Sebastian |
| Datum/Zeit: | 18.06.2007 20:04:08 |
FUNCTION StringWiederholung(Muster As String, Anzahl As UInteger) As String
Dim As Integer i
Dim As String temp
IF Anzahl = 0 THEN EXIT FUNCTION
temp = ""
For i = 1 to Anzahl
temp += Muster
NEXT i
StringWiederholung = temp
END FUNCTION



FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!



