Есть код и счетчики которые переводят строку в поле Мемо после определенного кол-ва символов. Но в самом начале почему то переводит с одного символа меньше чем нужно. Подскажите где проблема.
Сам код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
mmo1: TMemo;
lbl1: TLabel;
procedure mmo1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i: Integer;
k: Integer;
implementation
{$R *.dfm}
procedure TForm1.mmo1KeyPress(Sender: TObject; var Key: Char);
begin
lbl1.Caption:= IntToStr(i);
Inc(i);
Inc(k) ;
if i=5 then
begin
mmo1.Lines.Add(#13);
i:=0;
end;
if Key=#8 then
begin
if i>=2 then i:=i-2
else if i=1 then
i:=0;
end;
if k=10 then
begin
mmo1.Lines.Add('');
mmo1.Lines.Add('Ê-ñòü ñèìâîë³â '+inttostr(k));
mmo1.Lines.Add('');
k:=0;
end;
if Key=#8 then
begin
if k>=2 then k:=k-2
else if k=1 then
k:=0;
end;
end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.