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

jcf: cleanup

Browse Source 
git-svn-id: trunk@36238 -
This commit is contained in:
paul 2012-03-23 03:40:11 +00:00
parent c6d8b4ee5f
commit 52f8a44512
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/ReadWrite/EditorConverter.pas
View File

@ -164,7 +164,6 @@ end;
procedure TEditorConverter.WriteToIDE(const pcUnit: TSourceEditorInterface; const psText: string);
var
lsOriginalSource: string;
lcSourceLines, lcDestLines: TStrings;
lcSameStart, lcSameEnd: TStrings;
lsSourceLine, lsDestLine: string;
@ -174,9 +173,8 @@ begin
if pcUnit = nil then
exit;
lsOriginalSource := fcConverter.InputCode;
lcSourceLines := TStringList.Create;
lcSourceLines.Text := lsOriginalSource;
lcSourceLines.Text := fcConverter.InputCode;
lcDestLines := TStringList.Create;
lcDestLines.Text := psText;
lcSameStart := TStringList.Create;