paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 02:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Paste problem fix

Browse Source
This commit is contained in:
Margers 2025-01-09 21:26:39 +00:00 committed by Michael Van Canneyt
parent 4e96751cb7
commit d2df6a630c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/ide/weditor.pas
View File

@ -2081,11 +2081,11 @@ begin
exit;
end; *)
if S='' then
CP:=0
CP:=X+1
else
begin
CP:=0; RX:=0;
while (RX<=X) and (CP<=length(S)) do
while (RX<=X) {and (CP<=length(S))} do
begin
Inc(CP);
if (CP<=length(S)) and