Commit db7af4ad authored by Martin Schreiber's avatar Martin Schreiber

* tpoorstringdatalist.feditcharindex private -> protected.

* tterminal.setprompt sets flines.feditcharindex.
parent 3dcaa250
......@@ -701,7 +701,6 @@ type
tpoorstringdatalist = class(tdynamicpointerdatalist)
private
feditcharindex: integer;
function Getitems(index: integer): msestring;
procedure Setitems(index: integer; const Value: msestring);
function getasarray: msestringarty;
......@@ -725,6 +724,7 @@ type
function getnoparagraphs(index: integer): boolean; virtual;
function textlength: integer;
public
feditcharindex: integer;
procedure assign(source: tpersistent); override;
procedure assignopenarray(const data: array of msestring); overload;
// procedure assignarray(const data: stringarty); overload;
......
......@@ -283,6 +283,7 @@ begin
gridvalue[rowhigh]:= avalue +
copy(gridvalue[rowhigh],finputcolindex+1,bigint);
finputcolindex:= length(avalue);
flines.feditcharindex:= finputcolindex;
if row = rowhigh then begin
feditor.curindex:= bigint;
end;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment