07. april 2004 - 23:54Der er
11 kommentarer og 1 løsning
newbie her. Hjælp en stakkels begynder.
Jeg sidder og prøver på at lave et løkkehjulsprg. og har brug for at finde en løsning til hvordan man får talt et antal tegn i en variabel og der efter få antallet vist i et editfelt, som spørgsmålstegn. ex: hvis variablen indeholder ordet "spasser", så skal der skrives "???????" i editfeltet. Jeg har brugt funktionen Length(variabel) til at tælle tegnene i variablen, men hvordan kommer jeg videre herfra. Jeg håber jeg har gjort mig selv bare lidt forståelig og håber nogen kan hjælpe mig. På forhånd tak.
Hej Visuel. Den er ikke for pjattet med spørgsmålstegnet i linjen: edit1.Text = edit1.Text?; [Error] Lykkehjulp.pas(223): Illegal character in input file: '?' ($3F) [Error] Lykkehjulp.pas(228): '.' expected but ';' found [Fatal Error] LykkehjulD.dpr(5): Could not compile used unit 'Lykkehjulp.pas'
procedure TForm1.btnOKClick(Sender: TObject); var taeltegn, q: integer; begin facit:=edtNytOrd.text; taeltegn:= length(facit); for q:=1 to taeltegn do begin edtOrd.Text:= edtOrd.Text?; end; end;
procedure TForm1.Button1Click(Sender: TObject); begin Edit3.PasswordChar := '?'; end;
Så alt hvad der står i Edit3 bliver lavet til spørgsmålstegn.
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.
