Avatar billede psycosoft-funware Nybegynder
15. november 2004 - 11:31 Der er 2 kommentarer og
1 løsning

forskellige click procedure

er der noge der kan fortælle mig hvordan man skruer en click procedure sammen der gør dette her:
man har en edit og en button
første click læser fra data[0]'delphi' og skriver det i edit'en, andet click ryder teksten i edit'en og læser fra data[1]'er godt' og skriver det i edit'en?
Avatar billede dkn Nybegynder
15. november 2004 - 12:21 #1
var
  FClicked:Boolean=false;

...

Button CLick(...);
begin
if FClicked then
  begin
      edit1.text := data[0];
  end else
  begin
      edit1.text := data[1];
  end;
FClicked := not FClicked;
end;


noget i den stil
Avatar billede psycosoft-funware Nybegynder
02. december 2004 - 08:36 #2
hvad så hvis man har eks. 19 data og skal vise dem en efter en?
Avatar billede dkn Nybegynder
02. december 2004 - 10:20 #3
var
  FClickCount:Integer=-1;

...

Button CLick(...);
begin
inc(FClickCount);
if FClickCount = 19 then
  FClickCount := -1;

  edit1.text := data[FClickCount];
end;
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