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

replaced array of with pointer of integer for 1.0.10

Browse Source 
git-svn-id: trunk@6638 -
This commit is contained in:
mattias 2005-01-18 22:35:51 +00:00
parent cc5ecdae5c
commit 03115ff293
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/invertassigntool.pas
View File

@ -148,13 +148,14 @@ var
Lines: TStringList;
AList,
BList: TStringList;
Indents: array of Integer;
Indents: ^Integer;
X, Y: Integer;
EqPos: Integer;
ALine: String;
begin
Lines := TStringList.Create;
SetLength(Indents, ALines.Count);
if ALines.Count>0 then begin
GetMem(Indents,SizeOf(Integer)*ALines.Count);
// Put a line on multiple lines, on one line
ALine := '';
@ -173,6 +174,7 @@ begin
end;
ALines.Clear;
end;
AList := TStringList.Create;
BList := TStringList.Create;
@ -194,6 +196,7 @@ begin
BList.Free;
Result := ALines;
ReAllocMem(Indents,0);
// TODO: How do you stop this from adding a new line at the end of the last item
end;
//////////////////////////////////////////////////////////////////////