var svar: string; label Runinbox; begin svar := \'\'; Runinbox: if InputBox(\'Svar\', \'Svar rigtigt\', svar) <> \'\' then begin //Der er skrevet noget
var svar: string; begin repeat inputquery(\'Svar\', \'Svar rigtigt\',svar) ; until svar = \'hurra\'; end;
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.