paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 00:30:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed formatting

Browse Source
This commit is contained in:
Margers 2024-09-01 21:38:43 +00:00 committed by Michael Van Canneyt
parent 12bc43b7b6
commit fd353ee62c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/ide/weditor.pas
View File

@ -6970,7 +6970,8 @@ begin
i:=1 {if input line is empty then start from first character of word if any} i:=1 {if input line is empty then start from first character of word if any}
else else
i:=pos(Data^,s); i:=pos(Data^,s);
if (i>0) and (length(s)>=i+length(Data^)) then begin if (i>0) and (length(s)>=i+length(Data^)) then
begin
s:=Data^+s[i+length(Data^)]; s:=Data^+s[i+length(Data^)];
If not assigned(validator) or If not assigned(validator) or
Validator^.IsValidInput(s,False) then Validator^.IsValidInput(s,False) then