Code: Alles auswählen
DBUCOPY.PRG
538 IF M->how_many = 0
539 REPLACE &field_mvar WITH &with_what ;
540 WHILE &while_cond FOR &for_cond
541 ELSE
542 REPLACE NEXT M->how_many &field_mvar WITH &with_what ;
543 WHILE &while_cond FOR &for_cond
544 ENDIF
545 stat_msg("Ersetzen beendet")
hierzu das beiliegende Demo
Code: Alles auswählen
USE TEST1 EXCLUSIVE
* REPLACE TEST1->AKTION WITH cText // -> String "STR(RECNO())"
REPLACE TEST1->AKTION WITH &cText // -> leer
* REPLACE TEST1->AKTION WITH (cText) // -> String "STR(RECNO())"
* REPLACE TEST1->AKTION WITH &(cText) // -> String "STR(RECNO())"
? TEST1->AKTION
WAIT