Label1.Caption := 'Liczba: '+IntToStr(Length(edit1.Text));
Znak enter liczony jest jako 2 znaki.
Jak zrobić, zeby nie zliczalo znakow enter?
Dzieki
Label1.Caption := 'Liczba: '+IntToStr(Length(edit1.Text));
Znak enter liczony jest jako 2 znaki.
Jak zrobić, zeby nie zliczalo znakow enter?
Dzieki
mniej wiecej tak
s := edit1.text;
while pos(#10#13, s) > 0 do delete(s, pos(#10#13, s), 2);
...:=length(s);
No.. jesli jestes pewien, ze enter jest tylko 1 to:
...:=length(s)-2 ...
Czy to pytanie to jakaś podchwytliwa ściema? Skąd w edicie enter?
// Marooned: powiedz szczerze, czy jeśli ktoś nie potrafi policzyć ilości znaków w stringu, będzie umiał ustawić styl editowi? :)
thenkles - nie mam pewności, ale chyba można wkleić :)
Czy to pytanie to jakaś podchwytliwa ściema? Skąd w edicie enter?
Skąd? Może ktoś niechcąco trafił w największy klawisz na klawiaturze i zupełnym przypadkiem akurat ów Edit miał focus?
No oczywistym jest, że rzeczone okno klasy EDIT musiało mieć ustawiony styl ES_WANTRETURN :-).
hehe
Chodzilo mi o memo a nie o edit1 troche sobie zle wpisalem. :)
Dzieki za odpowiedzi
hehe
Chodzilo mi o memo a nie o edit1 troche sobie zle wpisalem. :)
Dzieki za odpowiedzi
Gwoli ścisłości - Memo i Edit to okno tej samej klasy - różnią się tylko kilkoma stylami (między innymi ES_MULTILINE i ES_WANTRETURN).