tælle en memo

Tags:    delphi

User
Bruger #702 @ 05.02.02 08:53
Hej jeg har den her kode til at tælle hvor mange bogstaver der er skavet i en meno men den viker ikke som jeg vil

<pre>procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(Length(Memo1.Text));
end;</pre>





2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
<quote>Hej jeg har den her kode til at tælle hvor mange bogstaver der er skavet i en meno men den viker ikke som jeg vil

<pre>procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(Length(Memo1.Text));
end;</pre>

</quote>


Selv om jeg ikke er den helt store i delphi, tror jeg godt jeg kan hjælpe dig, har ikke mulighed for at teste det!

din procedure aktivers ved klik, ved en klik heændelse for tekstboksen(memo) en focus hændelse(hvis der findes sådan en) opadger at det er på en button så det er når der klikkes på knappen!

det gør sådan at din optælling kun optæller når der klikkes på memoen

derfor må der finedes en channge hændelse som indtræffer hvergang brugern srkvier i feltet i det at det aldrig vill være det samme!


således kommer koden til at se sådan ud(eller noget der ligner!)
procedure TForm1.Memo1.change(Sender: TObject);

<pre>begin
Label1.Caption := IntToStr(Length(Memo1.Text));
end;</pre>


mvh.
Thomas Christensen[Redigeret d. 05/02-02 11:44:23 af Thomas Christensen]



User
Bruger #402 @ 05.02.02 09:49




Indlæg senest redigeret d. 04.09.2012 13:49 af Bruger #402
t