paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed invert assignment tool from Sergio

Browse Source 
git-svn-id: trunk@6593 -
This commit is contained in:
mattias 2005-01-14 17:42:56 +00:00
parent 001e528f5a
commit 40cdceb92d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/invertassigntool.pas
View File

@ -46,7 +46,7 @@ function InvertAssignment(ALines:TStrings):TStrings;
implementation
// This functiosn inverts all Assignment operation.
// This function inverts all Assignments operation.
// like valuea := valueb; to valueb := valuea;
function InvertAssignment(ALines:TStrings):TStrings;
var iLeft, iSize : integer; //for identation purpose only
@ -70,7 +70,7 @@ var iLeft, iSize : integer; //for identation purpose only
var i : integer;
begin
Result := '';
for i := 0 to iChar do Result := Result+' ';
for i := 0 to iChar-1 do Result := Result+' ';
end;
var iPos: integer;
@ -101,7 +101,7 @@ var iLeft, iSize : integer; //for identation purpose only
if Pos(':=',s) > 0 then
begin
if s_Comment <> '' then s_Comment := ' '+s_Comment;
// Inverting
iPos := Pos(':=', s );
s_Right := ClearLine( Copy(s,iPos+2, Length(s)-iPos) );
@ -121,7 +121,7 @@ begin
Result := TStringList.Create;
// Let's find the Bigest at Right Word for Identation
// Let's find the Bigest Words at Right for Identation
iSize := 0;
for i := 0 to ALines.Count-1 do
begin