Lykkehjulet

Hvad er det lige du vil?!

Mener du at der skal være lige så mange ? tegn i edit boxen som længden af svar?
For så kan du gøre sådan:

var
  i: integer;
begin
  svar := ord;
  svaredit.text:=\'\';
  for i := 1 to length(svar) do
    svaredit.text:=svaredit.text+\'?\';

Din kode er god nok kokoko, men det kan gøres endnu nemmere

svaredit.text:=StringToChar(\'?\',length(svar));

MVH abpdk

Har selv lavet lykkehjulet ;o) (mellemniveau i datalogi...)


procedure TForm1.FormActivate(Sender: TObject);
  var ordNr, OrdLength, linieNr, i : Integer;
begin
  pnlSvar.Caption := \'\';
  Randomize;
  memOrd.Lines.LoadFromFile(\'ord.lyk\');
  linieNr := memOrd.Lines.Count;
  ordNr := Random(linieNr);
  facit := memOrd.Lines[ordNr];
  OrdLength := Length(facit);
  for i:=1 to OrdLength do pnlSvar.Caption := pnlSvar.Caption + \'?\';
  edtGaet.MaxLength := Length(facit);
end;

Skriv, hvis du vil have mere ;o)