Jak zliczyć ilość znaków w zmiennej string? Czy jest jakaś krótsza (i szybsza) procedura od tej: IntToStr(Length(s)));? Banalne ale jednak
Ty potrzebujesz wiedzieć ile jest liter czy chcesz to wyświetlić?
Ilosc := Length(Tekst);
I nie wiem co tu jeszcze chcesz skracać, bo to jest dosyć szybkie.
No chyba, że:
Ilosc := SizeOf(Tekst) / 2; //nie wiem czy to działa
Żeby zliczyć, wystarczy Length(s);
Dla łańcucha krótkiego długość jest zapisana pod indeksem 0 łańcucha. Ale Length tez tam zagląda.
Długość długiego łańcucha jest zapisana inaczej, kiedyś na forum pisałem, gdzie. Jest to też w helpie. Możesz sobie oprogramować, ale w najlepszym wypadku powtórzysz Length, w innym wypadku napiszesz coś mniej efektywnego.
Ilość znaków w stringu zlicza funkcja length, której rezultatem jest integer i to jest najkrótszy z możliwych sposobów (tylko jedna funkcja). A że ty potrzebujesz(chyba) konwertować integera na stringa to używasz drugiej funkcji inttostr, od której również prostszej nie ma. Więc powiedz mi jak ty chcesz to jeszcze upraszczać???????