这样写就报错:
TextStr:=Copy(Lines.Strings[NowLine-1],NowRow,TextRows);
这样写就正确:
for i:=NowRow to Min(TextRows,NowRow+TextRows) do
TextStr:=TextStr+Lines.Strings[NowLine-1][i];
真是莫名其妙!
TextStr:=Copy(Lines.Strings[NowLine-1],NowRow,TextRows);
这样写就正确:
for i:=NowRow to Min(TextRows,NowRow+TextRows) do
TextStr:=TextStr+Lines.Strings[NowLine-1][i];
真是莫名其妙!
这样也不行
TextStr:=Copy(' ',1,2);