Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249664 (11100)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Array Fehler ?
Tibor
| Datum: 03.06.01 13:04 (tiborvonklopotek@gmx.de) |
Hallo Was mach ich hier falsch ????? bei * bekomme ich alls ausgabe nur 0en angelistet PROC KUNDEN_Lesen @dbOpen(#1,"KUNDEN-DB.DBF") @dbUse(#1) KundenRecAnz&=&dbRecCount @dbGo("|<") WhileNot %dbEoF KundenNummer&[&loop]=@dbGetField$(1) KundenName$[&loop]=@dbGetField$(2) print "Nr./Name:";KundenNummer&[&loop];KundenName$[&loop] @dbGo(">") EndWhile @dbClose(#1) EndProc PROC KUNDEN_Pruef Print "-------------" WHILELOOP KundenRecAnz& print "Nr./Name:";KundenNummer&[&Loop];KundenName$[&loop] If @Equ(KundenNummer&[&Loop],2) print "Nr./Name:";KundenNummer&[&Loop];KundenName$[&loop] EndIf ENDWHILE EndProc Declare KundenRecAnz&,KundenName$[10],KundenNummer&[10] cls Kunden_lesen Kunden_pruef WaitKey End vielen Dank Tibor

| Zurück zur Übersicht