Odczytywanie liczby linii w RichEdit
Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić liczbę linii tekstu z RichEdit1:
void __fastcall TForm1::Button1Click(TObject *Sender) { int IleLinii = 0; for (int i = 1; i <= RichEdit1->Text.Length(); i++) { if (RichEdit1->Text[i] == '\n') { IleLinii ++; } } Label1->Caption = "Liczba linii: " + IntToStr(++IleLinii); }