1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function TForm2.LineNr(Start: Integer): String;
var i, LineCount, LastRet: Integer;
begin
 LineCount := 0;
 For i := 1 to Start Do
  IF RichEdit1.Text[i] = #13 then begin
   INC(LineCount);
   LastRet := i;
  end;
 Result := 'L:'+IntToStr(LineCount)+'Z:'+IntToStr(Start-LastRet);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure LZ (RichEdit1 : TRichEdit; VAR L,Z : INTEGER);
VAR backup : STRING;
    i : INTEGER;
begin
  backup:=RichEdit1.Text;
  RichEdit1.Text:=Copy(RichEdit1.Text,1,RichEdit1.SelStart)+'%%'+
                  Copy(RichEdit1.Text,RichEdit1.SelStart,Length(RichEdit1.Text)-RichEdit1.SelStart);

  for i:=0 TO RichEdit1.Lines.Count-1 DO
  if pos('%%',RichEdit1.Lines[i]) > 0 then break;

  L:=i;
  Z:=pos('%%',RichEdit1.Lines[i]);
  RichEdit1.Text:=backup;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function TForm2.LineNr(Start: Integer): String;
begin
  RichEdit2.Text := Copy(RichEdit1.Text,0,Start);
  Result := 'L'
            +IntToStr(RichEdit2.Lines.Count-1)
            +'Z'
            +IntToStr(Length(RichEdit2.Lines[RichEdit2.Lines.Count-1])+1);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function anzahl_zeichen (zeichen: Char; text: STRING) : Integer;
VAR position : Integer;
    neu_text : STRING;
begin
  position:=Pos(zeichen,text);
  if position=0 then result:=0
  else begin
    neu_text:=Copy(text,position+1,Length(text)-position);
    result:=1+anzahl_zeichen(zeichen,neu_text);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function AnzahlZeichen(Zeichen:Char; Text: String): Integer;
begin
 result := 0;
 while Pos(Zeichen, Text) > 0 Do Begin
  Inc(result);
  Delete(Text, 1, Pos(Zeichen, Text));
 end;
end;