Почему если переделать эту процедуру в функцию то результат надо разделить на 2 ?
| Код |
Procedure MakeJah;
var fj,i:integer;
s:string;
begin
for i:=0 to ri4Edit.CaretPos.Y do
begin
S:=ri4Edit.Lines.Strings[i];
if ri4Edit.CaretPos.Y = i then
fj:=fj+ri4Edit.CaretPos.X else
fj:=fj+length( s );
end;
caption:=IntToStr(fj);
end;
|
| Код |
Function GetStringCount(x,y:integer):integer;
var fj,i:integer; s:string;
begin
for i:=0 to Y do
begin
s:= ri4Edit.Lines.Strings[i];
if Y = i then
fj:=fj+X else
fj:=fj+length( s );
end;
fj:=(fj Div 2);
Result:=fj;
end;
|
|