Chcę policzyć ilość znaków z danego przedziału linii w memo np od 1 do 10 linii (gdy Memo ma np. 15 linii).
Napisałem taki kod ale podaje mi jakieś bzdurne wartości. Gdzie robię błąd?
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to 10 do begin
for j:=1 to StrToInt(Memo1.Lines[i]) do
Label1.Caption:=IntToStr(Length(Memo1.text));
end;
end;