Avatar billede dilling-hansen Nybegynder
11. april 2006 - 16:52 Der er 3 kommentarer og
1 løsning

InputBox - Cancel ?

repeat
    proj := InputBox('Nyt Projekt', 'Skriv det projekt du vil tilføje:', 'Projekt');
  until proj <> '';

//Kode


-------

Hvordan kan jeg gøre så dan annulere når man klikker på cancel, og ikke bare kører koden aligevel :-s
Avatar billede psycosoft-funware Nybegynder
11. april 2006 - 16:57 #1
hvorfor vil du lige bruge repeat-until...? :)
Avatar billede psycosoft-funware Nybegynder
11. april 2006 - 17:01 #2
procedure TForm1.Button1Click(Sender: TObject);

var
  NewString: string;
  ClickedOK: Boolean;
begin
  NewString := 'Default String';
  Label1.Caption := NewString;
  ClickedOK := InputQuery('Input Box', 'Prompt', NewString);
  if ClickedOK then            { NewString contains new input string }
    Label1.Caption := 'The new string is ''' + NewString + '''';
end;
Avatar billede dilling-hansen Nybegynder
11. april 2006 - 19:10 #3
Tak FunteX! :D svar ;)
Avatar billede psycosoft-funware Nybegynder
11. april 2006 - 19:19 #4
jamen det kommer så her... :)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester