Мне нужно считать текст из RichEdit'a в массив строк - построчно.
Нашел такой более-менее способ из мсдн.
Но результат...

Код

void CMyDlg::OnToolsRun() {     CString tmp;     int i, nLineLength, nLineCount = m_editCode.GetLineCount();     char **strCode = new char*[nLineCount];     for(int j=0; j<nLineCount; ++j)         strCode[j] = new char[100];      for (i=0; i< nLineCount; ++i)      {         nLineLength = m_editCode.LineLength(i);         m_editCode.GetLine(i, strCode[i],nLineLength);         m_editOutput.GetWindowText(tmp);         tmp+=strCode[i];         m_editOutput.SetWindowText(tmp);          }     for(int j=0; j<nLineCount; ++j)         delete [] strCode[j];     delete [] strCode;      }

Вот, что у меня в едите:

Код

program Electronic_journal; uses Objects, Drivers, Menus, Views, App, stddlg,Dialogs, Memory,Dos,MsgBox,EJIntr,EJDlg,EJData; type   EJApp = object(TApplication)     constructor Init;     procedure HandleEvent(var Event: TEvent);Virtual;     procedure InitMenuBar; virtual;     procedure InitStatusLine; virtual;     procedure InitDesktop; virtual;     procedure NewDBase;     procedure FileOpen;     procedure Save(As:boolean;Descriptor:byte);     procedure View(Title:String);     procedure ChangeDir;     destructor done;virtual;   end; var   StudentCollection:PStudentCollection; {********************************************************************} {*****************************Init***********************************} constructor EJApp.Init;   begin     DisableCommands(WinCom1);     FileWork:=New(PFileWork, Init);     OpenCount:=0;     inherited Init;   end; {****************************End Init********************************} {*****************************Done***********************************} destructor EJApp.Done;   begin     Dispose(FileWork);     inherited Done;   end; {****************************End Done********************************} {***************************InitMenuBar******************************} procedure EJApp.InitMenuBar; var   R: TRect; begin   GetExtent(R);   R.B.Y := R.A.Y + 1;   MenuBar := New(PMenuBar, Init(R, NewMenu(     NewSubMenu('~F~ile', hcFile, NewMenu(       NewItem('~N~ew', '', kbNoKey, cmNew, hcNew,       NewItem('~O~pen...', 'F3', kbF3, cmFileOpen, hcFileOpen,       NewItem('~S~ave', 'F2', kbF2, cmSave, hcSave,       NewItem('Save ~a~s...','', kbNoKey, cmSaveAs, hcSaveAs,       NewLine(       NewItem('~C~hange dir', '', 0, cmChangeDir, hcChangeDir,       NewItem('E~x~it', 'Alt+X', kbAltX, cmQuit, hcExit,       nil)))))))),     NewSubMenu('~J~ournal', hcJournal, Newmenu(       NewItem('~V~iew', 'Alt+F1', kbaltF2, cmViewData, hcViewData,       NewLine(       NewItem('~S~earch', '', kbAltF, cmSearch, hcSearch,       NewLine(       NewItem('~I~nsert', '', kbNoKey, cmInsert, hcInsert,       NewItem('~E~dit', '', kbNoKey, cmEdit, hcEdit,       NewItem('~D~elete', '', kbNoKey, cmDelete, hcDelete       ,nil)))))))),     NewSubMenu('~O~ptions', hcOptions, NewMenu(       NewItem('~V~ideo Mode','Alt+F9',kbAltF9,cmVideoMode,hcNoContext       ,nil)),       nil)))))); end; {-----------------------------------------------------} procedure EJApp.InitStatusLine; var   R: TRect; begin   GetExtent(R);   R.A.Y := R.B.Y - 1;   StatusLine := New(PHintStatusLine, Init(R,     NewStatusDef($0, 999, StdStatusKeys(        NewStatusKey('~Alt+X~ Exit',kbAltF3,cmQuit,        NewStatusKey('~F3~ Open',kbf3,cmFileOpen,        nil))),     NewStatusDef($E000, $Ffff,  StdStatusKeys(        NewStatusKey('~Alt+F3~ Close',kbAltF3,cmClose,        NewStatusKey('~F3~ Open',kbf3,cmFileOpen,        NewStatusKey('~Insert~ new record',kbIns,cmInsert,        NewStatusKey('~Enter~ Edit',kbEnter,cmEdit,        NewStatusKey('~Delete~',kbDel,cmDelete,        NewStatusKey('~Alt+S~ Search',kbAltS,cmSearch,        nil)))))))     ,nil)))); end; {-----------------------------------------------------} procedure EJApp.InitDesktop; var   R: TRect; begin   GetExtent(R);   R.b.y:=r.b.y-1;   Desktop := New(PMyDesktop, Init(R)); end; procedure EJApp.HandleEvent(var Event: TEvent);   begin     if Event.What = evCommand then       case Event.Command of         cmNew:           begin             NewDBase;             ClearEvent(Event);           end;         cmFileOpen:           begin             FileOpen;             ClearEvent(Event);           end;         cmSave:           begin             Save(false,EJDescriptor);             ClearEvent(Event);           end;         cmSaveAs:           begin             Save(true,EJDescriptor);             ClearEvent(Event);           end;         cmChangeDir:           begin             ChangeDir;             ClearEvent(Event);           end;         cmVideoMode:           begin             SetScreenMode(ScreenMode xor smFont8x8);             ClearEvent(Event);           end; {        cmSave:           begin             Save;             ClearEvent(Event);           end;}       end;     Inherited HandleEvent(Event);   end; procedure EJApp.NewDBase;   var     Data:TNewDBaseDialogData;     ND:PNewDBaseDialog;     FirstLabWork,     LastLabWork,     norm:byte;     code:integer;     R:TRect;     PW:PMyWindow;   begin     with data do       begin         FacultyData:='”?‚’';         GroupData:='?‘-';         FirstLabWorkData:='  ';         LastLabWorkData:='  ';         NormData:='  ';       end;     ND:=New(PNewDBaseDialog,Init);     ND^.SetData(Data);     if ExecView(ND)<>cmCancel then       begin         ND^.GetData(Data);         Val(Data.FirstLabWorkData,FirstLabWork,code);         Val(Data.LastLabWorkData,LastLabWork,code);         Val(Data.NormData,Norm,code);         if (LastLabWork<FirstLabWork) or            (LastLabWork-FirstLabWork+1<norm) or            (LastLabWork-FirstLabWork>11) then            begin              MessageBox(#3+'‚ўҐ¤Ґ­л ­Ґ Їа ўҐ«м­лҐ ¤ ­­лҐ.'+#13+#3+                         '?®¦ «г©бв  Ї®ўв®аЁвҐ ўў®¤ ¤ ­­ле.',nil,mfError or mfOkButton);              exit;            end;         FileWork^.NewFile;         if FileWork^.Current^<>0 then           begin            StudentCollection:=New(PStudentCollection,Init(30,5,                                FileWork^.Current^,                                Data.GroupData,Data.FacultyData,                                FirstLabWork,LastLabWork,norm));            OpenCount:=OpenCount+1;            EnableCommands(WinCom1);            if OpenCount=5 then DisableCommands(WinCom2);            View(Data.FacultyData+' '+Data.GroupData);           end;       end;   end; procedure EJApp.FileOpen; var   R: TRect;   FileDialog: PFileDialog;   TheFile: FNameStr;   Result:TResult; const   FDOptions: Word = fdOKButton or fdOpenButton; begin   TheFile := '*.edb';   New(FileDialog, Init(TheFile, 'Open file', 'File ~n~ame',     FDOptions, 1));   FileDialog^.helpCTX:=hcFileOpen;   if executeDialog(FileDialog,@thefile) <> cmCancel then     begin       FileWork^.OpenFile(TheFile,Result);       If Result=2 then exit;       if Result=0 then         begin           StudentCollection:=New(PStudentCollection,Init(30,5,                               FileWork^.Current^,'','',1,1,3));           StudentCollection^.ReadFile(FileWork^.Files[FileWork^.Current^]);           if StudentCollection^.Descriptor^<>0 then             begin               OpenCount:=OpenCount+1;               EnableCommands(WinCom1);               if OpenCount=5 then DisableCommands(WinCom2);               View(StudentCollection^.Attributes.Faculty^+' '+                    StudentCollection^.Attributes.Group^)             end           else              FileWork^.CloseFile(FileWork^.Current^);         end;       if Result=1 then NewDBase;     end; end; procedure EJApp.Save(As:boolean;Descriptor:byte);   var     FileDialog: PFileDialog;     TheFile: FNameStr;     result:TResult;   begin     if As then       begin         TheFile:= '*.edb';         New(FileDialog, Init(TheFile, 'Save file as', '~S~ave file as',fdOKButton, 1));           {   FileDialog^.HelpCtx:=hcFastSave;}         if ExecuteDialog(FileDialog,@TheFile) <> cmCancel then         FileWork^.SaveFile(As,EJDescriptor,TheFile,Result);       end     else       FileWork^.SaveFile(As,EJDescriptor,'',Result);       EJSave:=True;   end; procedure EJApp.ChangeDir;   begin      execview(new(pChDirDialog,init(0,0)));   end; procedure EJApp.View(Title:String); var   R:TRect;   PW:PMyWindow; begin   GetExtent(R);   R.A.Y:=R.A.Y+1;   R.B.Y:=(R.B.Y)-1;   PW:=New(PMyWindow, Init(R,Title,FileWork^.Current^,StudentCollection)); {  Dispose(StudentCollection,done);}   Desktop^.Insert(PW); end; var   EJ:EJApp; begin   EJ.Init;   EJ.Run;   EJ.Done; end.ээээ««««««««ою

А вот, что я получаю, когда вывожу массив:

Код

program Electronic_journal;НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ«««««««« uses Objects, Drivers, MenuНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««Memory,Dos,MsgBox,EJIntr,EJНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ«««««««« type   EJApp = object(TApplicatiНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    constructor Init;     procedure HandleEvent(vНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    procedure InitMenuBar; НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    procedure InitStatusLinНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    procedure InitDesktop; НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    procedure NewDBase;     procedure FileOpen;     procedure Save(As:booleНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    procedure View(Title:StНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    procedure ChangeDir;     destructor done;virtualНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««  end; var   StudentCollection:PStudenНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««{**************************НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««{**************************НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ«««««««« constructor EJApp.Init;     DisableCommands(WinCom1);     FileWork:=New(PFileWork, Init);     OpenCount:=0;     inherited Init;   end; {****************************End Init********************НННННННННННННННННННННННННННННННННННННННННННээээ««««««««{*****************************Done***********************НННННННННННННННННННННННННННННННННННННННННННээээ«««««««« destructor EJApp.Done;   begin     Dispose(FileWork);     inherited Done;   end; {****************************End Done********************НННННННННННННННННННННННННННННННННННННННННННээээ««««««««{***************************InitMenuBar******************НННННННННННННННННННННННННННННННННННННННННННээээ«««««««« procedure EJApp.InitMenuBar; var   R: TRect; begin   GetExtent(R);   R.B.Y := R.A.Y + 1;   MenuBar := New(PMenuBar, Init(R, NewMenu(     NewSubMenu('~F~ile', hcFile, NewMenu(       NewItem('~N~ew', '', kbNoKey, cmNew, hcNew,       NewItem('~O~pen...', 'F3', kbF3, cmFileOpen, hcFileНННННННННННННННННННННННННННННННННННННННННННээээ««««««««      NewItem('~S~ave', 'F2', kbF2, cmSave, hcSave,       NewItem('Save ~a~s...','', kbNoKey, cmSaveAs, hcSavНННННННННННННННННННННННННННННННННННННННННННээээ««««««««      NewLine(       NewItem('~C~hange dir', '', 0, cmChangeDir, hcChangНННННННННННННННННННННННННННННННННННННННННННээээ««««««««      NewItem('E~x~it', 'Alt+X', kbAltX, cmQuit, hcExit, НННННННННННННННННННННННННННННННННННННННННННээээ««««««««      nil)))))))),     NewSubMenu('~J~ournal', hcJournal, Newmenu(       NewItem('~V~iew', 'Alt+F1', kbaltF2, cmViewData, hcНННННННННННННННННННННННННННННННННННННННННННээээ««««««««      NewLine(       NewItem('~S~earch', '', kbAltF, cmSearch, hcSearch,НННННННННННННННННННННННННННННННННННННННННННээээ««««««««      NewLine(       NewItem('~I~nsert', '', kbNoKey, cmInsert, hcInsertНННННННННННННННННННННННННННННННННННННННННННээээ««««««««      NewItem('~E~dit', '', kbNoKey, cmEdit, hcEdit,       NewItem('~D~elete', '', kbNoKey, cmDelete, hcDeleteНННННННННННННННННННННННННННННННННННННННННННээээ««««««««      ,nil)))))))),     NewSubMenu('~O~ptions', hcOptions, NewMenu(       NewItem('~V~ideo Mode','Alt+F9',kbAltF9,cmVideoModeНННННННННННННННННННННННННННННННННННННННННННээээ««««««««      ,nil)),       nil)))))); end; {-----------------------------------------------------} procedure EJApp.InitStatusLine; var   R: TRect; begin   GetExtent(R);   R.A.Y := R.B.Y - 1;   StatusLine := New(PHintStatusLine, Init(R,     NewStatusDef($0, 999, StdStatusKeys(        NewStatusKey('~Alt+X~ Exit',kbAННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       NewStatusKey('~F3~ Open',kbf3,cННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       nil))),     NewStatusDef($E000, $Ffff,  StdStaННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       NewStatusKey('~Alt+F3~ Close',kННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       NewStatusKey('~F3~ Open',kbf3,cННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       NewStatusKey('~Insert~ new recoННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       NewStatusKey('~Enter~ Edit',kbEННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       NewStatusKey('~Delete~',kbDel,cННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       NewStatusKey('~Alt+S~ Search',kННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««       nil)))))))     ,nil)))); end; {-------------------------------------ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««procedure EJApp.InitDesktop; var   R: TRect; begin   GetExtent(R);   R.b.y:=r.b.y-1;   Desktop := New(PMyDesktop, Init(R));ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««end; procedure EJApp.HandleEvent(var Event:ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««  begin     if Event.What = evCommand then       case Event.Command of         cmNew:           begin             NewDBase;             ClearEvent(Event);           end;         cmFileOpen:           begin             FileOpen;             ClearEvent(Event);           end;     ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          begin             Save(true,EJDescriННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««            ClearEvent(Event);ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          end;         cmChangeDir:           begin             ChangeDir;             ClearEvent(Event);ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          end;         cmVideoMode:           begin             SetScreenMode(ScreННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««            ClearEvent(Event);ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          end; {        cmSave:           begin             Save;             ClearEvent(Event);ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          end;}       end;     Inherited HandleEvent(EvenННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««  end; procedure EJApp.NewDBase;   var     Data:TNewDBaseDialogData; ННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    ND:PNewDBaseDialog;     FirstLabWork,     LastLabWork,     norm:byte;     code:integer;     R:TRect;     PW:PMyWindow;   begin     with data do       begin         FacultyData:=НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        GroupData:='¬НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        FirstLabWorkDНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        LastLabWorkDaНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        NormData:='  НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««      end;     ND:=New(PNewDBaseНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    ND^.SetData(Data)НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    if ExecView(ND)<>НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««      begin         ND^.GetData(DНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        Val(Data.FirsНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        Val(Data.LastНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        Val(Data.NormНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        if (LastLabWoНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««           (LastLabWoНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««           (LastLabWork-FirstLabWork>11) then            begin              MessageBox(#3+'^?¤?­; ­? 0 ^?«<­;? ¤ ­НННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««                        '®¦ «3©12  ®^2®0 2? ^^®¤ ¤ НННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««             exit;            end;         FileWork^.NewFile;         if FileWork^.Current^<>0 then           begin            StudentCollection:=New(PStudentCollection,НННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««                               FileWork^.Current^,                                Data.GroupData,Data.FaНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««                               FirstLabWork,LastLabWoНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««           OpenCount:=OpenCount+1;            EnableCommands(WinCom1);            if OpenCount=5 then DisableCommands(WinComНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««           View(Data.FacultyData+' '+Data.GroupData);НННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          end;       end;   end; procedure EJApp.FileOpen; var   R: TRect;   FileDialog: PFileDialog;   TheFile: FNameStr;   Result:TResult; const   FDOptions: Word = fdOKButton or fdOpenButton; begin   TheFile := '*.edb';   New(FileDialog, Init(TheFile, 'Open file', 'File ~nНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    FDOptions, 1));   FileDialog^.helpCTX:=hcFileOpen;   if executeDialog(FileDialog,@thefile) <> cmCancel tНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««    begin       FileWork^.OpenFile(TheFile,Result);       If Result=2 then exit;       if Result=0 then         begin           StudentCollection:=New(PStudentCollection,IНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««                              FileWork^.Current^,'','НННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          StudentCollection^.ReadFile(FileWork^.FilesНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          if StudentCollection^.Descriptor^<>0 then             begin               OpenCount:=OpenCount+1;               EnableCommands(WinCom1);               if OpenCount=5 then DisableCommands(WinНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««              View(StudentCollection^.Attributes.FacuНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««                   StudentCollection^.Attributes.GrouНННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««            end           else              FileWork^.CloseFile(FileWork^.Current^);НННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        end;       if Result=1 then NewDBase;     end; end; procedure EJApp.Save(As:boolean;DesНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««  var     FileDialog: PFileDialog;     TheFile: FNameStr;     result:TResult;   begin     if As then       begin         TheFile:= '*.edb';         New(FileDialog, Init(TheFilНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««          {   FileDialog^.HelpCtx:=НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        if ExecuteDialog(FileDialogНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««        FileWork^.SaveFile(As,EJDesНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««      end     else       FileWork^.SaveFile(As,EJDescrНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««      EJSave:=True;   end; procedure EJApp.ChangeDir;   begin      execview(new(pChDirDialog,initНННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««  end; procedure EJApp.View(Title:String);НННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««var   R:TRect;   PW:PMyWindow; begin   GetExtent(R);   R.A.Y:=R.A.Y+1;   R.B.Y:=(R.B.Y)-1;   PW:=New(PMyWindow, Init(R,Title,FileННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННННээээ««««««««{  Dispose(StudentCollection,done);}   Desktop^.Insert(PW); end; var   EJ:EJApp; begin   EJ.Init;   EJ.Run;   EJ.Done; end.????««««««««??

Кроме того, кириллица превращается в ???. Ну да то ладно, не важно...

А чего ж так получается? Или есть способ получше считать текст в массив?

1.А в сам эдит ты строки чем заносишь? Случаем не из массива тоже копируешь?
2. И в чем ты просматриваешь массив?

Я к чему...К тому, что если строка представлена видом char[n_bytes], то в таких строках надо принудительно ставить конец строки, например, нулевой символ. Тогда и отладчик, и всякие функции типа sprintf и симейство будут видеть эти строки нормально. А когда конец строки не виден, то как раз лезет мусор из памяти. А "дырки" в памяти за границами диапазона массивовкак правило заполняются этой гадостью вида "MMMMM...."
Короче, проверь, не нуждается ли твой код в символах окончания строки....

Знаешь, такие мысли были...
Как заношу в едит?

Код

ULONGLONG length = file.GetLength();             char* buf = new char[length];              file.Read(buf, length);             m_editCode.SetWindowText(buf);             delete [] buf;

Добавлено @ 20:31
А как принудительно добавить '\0'?
strcat(strCode[i],'\0'); вылетает с ексепшном, strCode[i][strlen(strCode[i])] = '\0'; результата не дало

а если так: ?

Код

strCode[i][strlen(strCode[i])-1] =0;

и здесь

Код

file.Read(buf, length); buf[lenth-1]=0;

Попробуй!!!

Это сообщение отредактировал(а) Dreamer_0x01 - 20.9.2005, 20:54

неа...

Кoнечно вылетает Эти функции ведь ищут тот же символ '\0'для распознания конца
слова. А тебе надо искать '\n'.
Добавлено @ 21:10
Чтото вроде этого

Код

int indexOf(const char*str) { int i; for(i=0;str[i]!='\n' && str[i]!=EOF;i++); //EOF проверяем, если после последней строки нет перехода. return i; } main() { char * strCode; //берёшь свой strCode //.... //.... Заменяешь переход строки на конец слова strCode[indexOf(strCode)]=0; //Вуаля, работаешь дальше }

или вот функция для того же самого

Код

void Replace_n_With_0(char * str) { for(;*str!='\n' && str!=EOF;str++); *str=0; }

Частично решил так:

Код

void CMyDlg::OnToolsRun() {     CString tmp;     int i, nLineLength, nLineCount = m_editCode.GetLineCount();     char **strCode = new char*[nLineCount];      for (i=0; i< nLineCount; i++)      {         nLineLength = m_editCode.LineLength(i);         strCode[i] = new char[nLineLength+1];         m_editCode.GetLine(i, strCode[i],nLineLength);         strCode[i][nLineLength]=0;         m_editOutput.GetWindowText(tmp);         tmp+=strCode[i];         m_editOutput.SetWindowText(tmp);          }     for(int j=0; j<nLineCount; ++j)         delete [] strCode[j];     delete [] strCode;      }

Точнее почти полностью. Почти потому что иногда теряется символ '\n' в конце строки.
Другая проблема серьезнее. Если файл довольно большой, вылетаю с абортом
Хотя какой там большой... 300 строк уже не катит...
Добавлено @ 21:17
sergej.z

А зачем мне заменять символ перехода на конец? Тогда в другом окне я получу одну длинную строку.

Цитата(kometa_triatlon @ 20.9.2005, 20:12)

Почти потому что иногда теряется символ '\n' в конце строки.

Это в последней строке файла. Из за того и abort что там он ищет переход, а его нет. и так до конца памяти
Добавлено @ 21:21

Цитата(kometa_triatlon @ 20.9.2005, 20:12)

А зачем мне заменять символ перехода на конец? Тогда в другом окне я получу одну длинную строку.

Posle сложения строк заменишь 0 обратно на переход. Это же элементарно.

sergej.z
А вот и не в последней строке В первой и еще какой-то. Но я думаю, то глюк файла, потому что не всегда такое.
А насчет аборта... Там с памятью проблемы.
Что пишет: File: dbgheap.c
Expression: _CrtCheckMemory()

Ну это опять же с более-менее большими файлами. Может, массив не помещается?

Посмотри дебугером.... строка копируется в массив нормально?
Именно после первого прогона... так как скорее всего ты действительно попал на \0, а надо на \r\n

Код

m_editCode.GetLine(i, strCode[i],nLineLength);

strCode[i][nLineLength]=0;

А здесь ты не вылез за границу массива?
не nLineLenth-1 надо делать разве???

Dreamer_0x01
Не вылез, я памяти на байт больше выделяю

Код

strCode[i] = new char[nLineLength+1];

Гм. На самом деле, глюк спрятался здесь:

Код

for(int j=0; j<nLineCount; ++j)             delete [] strCode[j];         delete [] strCode;

Протрассировал, строки копируются нормально, а когда освобожаю память, вылетаю...


The Thing
А строки копируются просто удивительно. Как хотят Вообще беспредел, сравните:
На входе:

Код

// lab1Dlg.cpp : implementation file // #include "stdafx.h" #include "lab1.h" #include "lab1Dlg.h" #ifdef _DEBUG #define new DEBUG_NEW #endif // CAboutDlg dialog used for App About class CAboutDlg : public CDialog { public:     CAboutDlg(); // Dialog Data     enum { IDD = IDD_ABOUTBOX };     protected:     virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support // Implementation protected:     DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD) { } void CAboutDlg::DoDataExchange(CDataExchange* pDX) {     CDialog::DoDataExchange(pDX); } BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) END_MESSAGE_MAP() // CMyDlg dialog CMyDlg::CMyDlg(CWnd* pParent /*=NULL*/)     : CDialog(CMyDlg::IDD, pParent)     , m_strFileName(_T(""))     , m_bFileOpened(false) {     m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); } void CMyDlg::DoDataExchange(CDataExchange* pDX) {     CDialog::DoDataExchange(pDX);     DDX_Control(pDX, IDC_RICHEDIT_CODE, m_editCode);     DDX_Control(pDX, IDC_RICHEDIT_OUTPUT, m_editOutput); } BEGIN_MESSAGE_MAP(CMyDlg, CDialog)     ON_WM_SYSCOMMAND()     ON_WM_PAINT()     ON_WM_QUERYDRAGICON()     //}}AFX_MSG_MAP     ON_COMMAND(ID_FILE_OPEN, OnFileOpen)     ON_WM_SIZE()     ON_COMMAND(ID_TOOLS_RUN, OnToolsRun)     ON_COMMAND(ID_FILE_SAVE, OnFileSave) END_MESSAGE_MAP() // CMyDlg message handlers BOOL CMyDlg::OnInitDialog() {     CDialog::OnInitDialog();     // Add "About..." menu item to system menu.     // IDM_ABOUTBOX must be in the system command range.     ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);     ASSERT(IDM_ABOUTBOX < 0xF000);     CMenu* pSysMenu = GetSystemMenu(FALSE);     if (pSysMenu != NULL)     {         CString strAboutMenu;         strAboutMenu.LoadString(IDS_ABOUTBOX);         if (!strAboutMenu.IsEmpty())         {             pSysMenu->AppendMenu(MF_SEPARATOR);             pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);         }     }     // Set the icon for this dialog.  The framework does this automatically     //  when the application's main window is not a dialog     SetIcon(m_hIcon, TRUE);            // Set big icon     SetIcon(m_hIcon, FALSE);        // Set small icon     // TODO: Add extra initialization here     CFont* pFont = new CFont();     VERIFY(pFont->CreateFont(     16,                        // nHeight     0,                         // nWidth     0,                         // nEscapement     0,                         // nOrientation     FW_NORMAL,                 // nWeight     FALSE,                     // bItalic     FALSE,                     // bUnderline     0,                         // cStrikeOut     ANSI_CHARSET,              // nCharSet     OUT_DEFAULT_PRECIS,        // nOutPrecision     CLIP_DEFAULT_PRECIS,       // nClipPrecision     DEFAULT_QUALITY,           // nQuality     DEFAULT_PITCH | FF_SWISS,  // nPitchAndFamily     "Courier New"));                 // lpszFacename     m_editCode.SetFont(pFont);     m_editOutput.SetFont(pFont);          delete pFont;     m_pMenu = new CMenu();     m_pMenu->LoadMenu(IDR_MAINFRAME);     SetMenu(m_pMenu);          /*m_pToolBar = new CToolBarCtrl();     m_pToolBar->CreateEx( TBSTYLE_FLAT | TBSTYLE_TOOLTIPS,         WS_CHILD | WS_VISIBLE | CBRS_TOP,          CRect(0, 0, 0, 0),         this,         AFX_IDW_CONTROLBAR_FIRST);     m_pToolBar->AddBitmap(3, IDB_TOOLBAR);     TBBUTTON Buttons[5];     Buttons[0].iBitmap = -1;     Buttons[0].fsState = TBSTATE_ENABLED;     Buttons[0].fsStyle = TBSTYLE_SEP;     Buttons[1].iBitmap = 0;     Buttons[1].fsState = TBSTATE_ENABLED;     Buttons[1].fsStyle = TBSTYLE_BUTTON;     Buttons[1].idCommand = ID_FILE_OPEN;     Buttons[2].iBitmap = 1;     Buttons[2].fsState = TBSTATE_ENABLED;     Buttons[2].fsStyle = TBSTYLE_BUTTON;     Buttons[2].idCommand = ID_FILE_SAVE;     Buttons[3].iBitmap = -1;     Buttons[3].fsState = TBSTATE_ENABLED;     Buttons[3].fsStyle = TBSTYLE_SEP;     Buttons[4].iBitmap = 2;     Buttons[4].fsState = TBSTATE_ENABLED;     Buttons[4].fsStyle = TBSTYLE_BUTTON;     Buttons[4].idCommand = ID_TOOLS_RUN;     m_pToolBar->AddButtons(5, Buttons);*/     if (!m_wndToolBar.CreateEx(this) || !m_wndToolBar.LoadToolBar(IDR_TOOLBAR1))             return -1;               m_wndToolBar.SetBarStyle(CBRS_ALIGN_TOP | CBRS_TOOLTIPS | CBRS_FLYBY);         RepositionBars(AFX_IDW_CONTROLBAR_FIRST, AFX_IDW_CONTROLBAR_LAST, 0);     return TRUE;  // return TRUE  unless you set the focus to a control } void CMyDlg::OnSysCommand(UINT nID, LPARAM lParam) {     if ((nID & 0xFFF0) == IDM_ABOUTBOX)     {         CAboutDlg dlgAbout;         dlgAbout.DoModal();     }     else     {         CDialog::OnSysCommand(nID, lParam);     } } // If you add a minimize button to your dialog, you will need the code below //  to draw the icon.  For MFC applications using the document/view model, //  this is automatically done for you by the framework. void CMyDlg::OnPaint()  {     if (IsIconic())     {         CPaintDC dc(this); // device context for painting         SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);         // Center icon in client rectangle         int cxIcon = GetSystemMetrics(SM_CXICON);         int cyIcon = GetSystemMetrics(SM_CYICON);         CRect rect;         GetClientRect(&rect);         int x = (rect.Width() - cxIcon + 1) / 2;         int y = (rect.Height() - cyIcon + 1) / 2;         // Draw the icon         dc.DrawIcon(x, y, m_hIcon);     }     else     {         CDialog::OnPaint();     } } // The system calls this function to obtain the cursor to display while the user drags //  the minimized window. HCURSOR CMyDlg::OnQueryDragIcon() {     return static_cast<HCURSOR>(m_hIcon); } BOOL CMyDlg::DestroyWindow() {     // TODO: Add your specialized code here and/or call the base class     delete m_pMenu;     ////delete m_pToolBar;     return CDialog::DestroyWindow(); } void CMyDlg::OnFileOpen() {     char szFilter[] = "Pascal Source Files (*.pas) |*.pas|Text Files (*.txt)|*.txt|All Files (*.*)|*.*||";     CFileDialog dlg(TRUE, NULL, NULL, OFN_OVERWRITEPROMPT, szFilter);     if( dlg.DoModal() == IDOK) {          m_strFileName = dlg.m_ofn.lpstrFile;         CFile file;         CFileException e;                  if( !file.Open( m_strFileName, CFile::modeRead ) )         {         #ifdef _DEBUG             afxDump << "File could not be opened " << e.m_cause << "\n";         #endif         }         else         {             ULONGLONG length = file.GetLength();             char* buf = new char[length+1];              file.Read(buf, length);             buf[length]=0;             m_editCode.SetWindowText(buf);                  delete [] buf;             m_bFileOpened = true;         }         file.Close();     } } void CMyDlg::OnToolsRun() {     CString tmp;     int i, nLineLength, nLineCount = m_editCode.GetLineCount();     //char strCode[1000][256];     char **strCode = new char*[nLineCount];     //CString strCode[1000];     /*for(int j=0; j<nLineCount; ++j)         strCode[j] = new char[256];*/      for (i=0; i< nLineCount; i++)      {         nLineLength = m_editCode.LineLength(i);         strCode[i] = new char[nLineLength+1];         m_editCode.GetLine(i, strCode[i],nLineLength);         strCode[i][nLineLength]=0;         //strCode[i][strlen(strCode[i])] = 0;         //TRACE(strCode[i]);         m_editOutput.GetWindowText(tmp);         tmp+=strCode[i];         m_editOutput.SetWindowText(tmp);          }     /*for(int j=0; j<nLineCount; ++j)         delete strCode[j];     delete  strCode;*/      } void CMyDlg::OnFileSave() {     if( m_bFileOpened ){         CFile file;         CFileException e;                          if( !file.Open( m_strFileName, CFile::modeWrite ) )             {             #ifdef _DEBUG                 afxDump << "File could not be opened " << e.m_cause << "\n";             #endif             }             else             {                 CString strCode;                 m_editCode.GetWindowText(strCode);                 file.Write(strCode, strlen(strCode.GetBuffer()));                 file.Close();             }     } }

На выходе:

Код

// lab1Dlg.cpp : implementation file// #include "stdafx.h" #include "lab1.h" #include "lab1Dlg.h" #ifdef _DEBUG #define new DEBUG_NEW #endif // CAboutDlg dialog used for App Abo class CAboutDlg : public CDialog { public:     CAboutDlg(); // Dialog Data     enum { IDD = IDD_ABOUTBOX };     protected:     virtual void DoDataExchange(CDataEx // Implementation protected:     DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialog(CAb{ } void CAboutDlg::DoDataExchange(CData{     C} END_MESSAGE_MAP() // CMyDlg dialog CMyDlg::CMyDlg(CWnd    : CDialog(CMyDlg::    , m_strFileName(_T    , m_bFileOpened(fa{     m_hIcon = AfxGetAp} void CMyDlg::DoData{     CDialog::DoDataExc    DDX_Control(pDX, I    DDX_Control(pDX, I} BEGIN_MESSAGE_MAP    ON_WM_SYSCOMMAND    ON_WM_PAINT()     ON_WM_QUERYDRAGI    //}}AFX_MSG_MAP     ON_COMMAND(ID_FI    ON_WM_SIZE()     ON_COMMAND(ID_TO    ON_COMMAND(ID_FIEND_MESSAGE_MAP() // CMyDlg message BOOL CMyDlg::OnIn{     CDialog::OnInitDial     // Add "About..." m     // IDM_ABOUTBOX mus    ASSERT((IDM_ABOUTBO    ASSERT(IDM_ABOUTBOX     CMenu* pSysMenu = G    if (pSysMenu != NUL    {         CString strAboutMe        strAboutMenu.LoadS        if (!strAboutMenu.        {             pSysMenu->AppendM            pSysMenu->AppendM        }     }     // Set the icon for    SetIcon(m_hI    SetIcon(m_hI     // TODO: Add    CFont* pFont     VERIFY(pFont    16,          0,           0,           0,           FW_NORMAL,    FALSE,       FALSE,       0,                   ANSI_CHARSET,        OUT_DEFAULT_PRECIS,    CLIP_DEFAULT_PRECIS,    DEFAULT_QUALITY,     DEFAULT_PITCH | FF_S    "Courier New"));         m_editCode.SetFont(p    m_editOutput.SetFont         delete pFont;     m_pMenu = new CMenu(    m_pMenu->LoadMenu(ID    SetMenu(m_pMenu);          /*m_pToolBar = new C     m_pToolBar->CreateEx        WS_CHILD | WS         this           m_pTo     TBBUT    Buttons[0].fsStyle = TBSTYLE_SEP;     Buttons[1].iBitmap = 0;     Buttons[1].fsState = TBSTATE_ENABLED;    Buttons[1].fsStyle = TBSTYLE_BUTTON;     Buttons[1].idCommand = ID_FILE_OPEN;     Buttons[2].iBitmap = 1;     Buttons[2].fsState = TBSTATE_ENABLED;    Buttons[2].fsStyle = TBSTYLE_BUTTON;     Buttons[2].idCommand = ID_FILE_SAVE;     Buttons[3].iBitmap = -1;     Buttons[3].fsState = TBSTATE_ENABLED;    Buttons[3].fsStyle = TBSTYLE_SEP;     Buttons[4].iBitmap = 2;     Buttons[4].fsState = TBSTATE_ENABLED;    Buttons[4].fsStyle = TBSTYLE_BUTTON;     Buttons[4].idCommand = ID_TOOLS_RUN;     m_pToolBar->AddButtons(5, Buttons);*/     if (!m_wndToolBar.CreateEx(this) || !        return -1;               m_wndToolBar.SetBarStyle(CBRS_ALIG    RepositionBars(AFX_IDW_CONTROLBAR_     return TRUE;  // return TRUE  unless } void CMyDlg::OnSysCommand(UINT nID, LP{     if ((nID & 0xFFF0) == IDM_ABOUTBOX)     {         CAboutDlg dlgAbout;         dlgAbout.DoModal();     }     {         CDialog::OnSysCommand(nID, lPa    } } // If you add a minimize button //  to draw the icon.  For MFC a//  this is automatically done f void CMyDlg::OnPaint()  {     if (IsIconic())     {         CPaintDC dc(this); // device c         SendMessage(WM_ICONERASEBKGND,         // Center icon in client recta        int cxIcon = GetSystemMetrics(        int cyIcon = GetSystemMetrics(        CRect rect;         GetClientRect(&rect);         int x = (rect.Width() - cxIcon        int y = (rect.Height() - cyIco         // Draw the icon         dc.DrawIcon(x, y, m_hIcon);     }     else     {         CDialog::OnPaint();     } } //  theHCURSOR{     return} BOOL CM{     // TODO: Add    delete m_pMe    ////delete m    return CDial} void CMyDlg::{     char szFilte    CFileDialog    if( dlg.DoMo         m_strFileN         CFile file;                 if( !file.Op        {         #ifdef _DEBU            afxDump <<        #endif         }         else         {             ULONGLONG l            char* buf =            file.Read(b            buf[length]            m_editCode.                 delete [] buf;             m_bFileOpened = true;         }         file.Close();     } } void CMyDlg::OnToolsRun() {     CString tmp;     int i, nLineLength, nLineCou    //char strCode[1000][256];     char **strCode = new char*[n    //CString strCode[1000];     /*for(int j=0; j<nLineCount;        strCode[j] = new char[256];      for (i=0; i< nLineCount; i+     {         nLineLength = m_editCode.Li        strCode[i] = new char[nLine         m_editCode.GetLine(i, strCo        strCode[i][nLineLength]=0;         //strCode[i][strlen(strCode        //TRACE(strCode[i]);         m_editOutput.GetWindowText(        tmp+=strCode[i];         m_editOutput.SetWindowText(    }     /*for(int        delete st    delete  st     } void CMyDlg{     if( m_bFil        CFile fil        CFileException e;                          if( !file.Open( m_strFileName, CFile::modeWrite ) )             {             #ifdef _DEBUG                 afxDump << "File could not be opened " << e.m_cause << "\n";             #endif             }             else             {                 CString strCode;                 m_editCode.GetWindowText(strCode);                 file.Write(strCode, strlen(strCode.GetBuffer()));                 file.Close();             }     } }

Я тут еще кое-что заметил...
Как-то странно работает m_editCode.LineLength(i); - все время возвращает одно и тоже значение - длину первой строки. И если остальные длиннее - получается обрезание
Такой текст

Код

void CMyDlg::OnPaint()  {     if (IsIconic())     {         CPaintDC dc(this); // device context for painting         SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);         // Center icon in client rectangle         int cxIcon = GetSystemMetrics(SM_CXICON);         int cyIcon = GetSystemMetrics(SM_CYICON);         CRect rect;         GetClientRect(&rect);         int x = (rect.Width() - cxIcon + 1) / 2;         int y = (rect.Height() - cyIcon + 1) / 2;         // Draw the icon         dc.DrawIcon(x, y, m_hIcon);     }     else     {         CDialog::OnPaint();     } }

Превращается в такой:

Код

void CMyDlg::OnPaint() {     if (IsIconic())     {         CPaintDC dc(this); /         SendMessage(WM_ICONE         // Center icon in cl         int cxIcon = GetSyst         int cyIcon = GetSyst         CRect rect;         GetClientRect(&rect)         int x = (rect.Width(         int y = (rect.Height         // Draw the icon         dc.DrawIcon(x, y, m_     }     else     {         CDialog::OnPaint();     } }

Интересные вещи происходят.
GetLine возвращает количество скопированных символов, nLineLength в данном случае ограничитель.

Код

tmp.Format("\n%d == %d", m_editCode.GetLine(i, strCode[i],nLineLength),nLineLength);         TRACE(tmp); 23 == 23 2 == 23 17 == 23 3 == 23 23 == 23 1 == 23 23 == 23 1 == 23 23 == 23 23 == 23 23 == 23 14 == 23 23 == 23 23 == 23 23 == 23 1 == 23 19 == 23 23 == 23 3 == 23 6 == 23 3 == 23 22 == 23 3 == 23 2 == 23

И это при том, что я вызываю nLineLength = m_editCode.LineLength(i); в начале цикла.
Я как-то неправильно с этой функцией работаю? Почему каждый раз одни и те же значения???

Это сообщение отредактировал(а) kometa_triatlon - 21.9.2005, 21:44

kometa_triatlon
Во -первых если уже взялся за МФС, то давай полностью МФС( взялся танцевать с дьяволом, танцу до конца)! Я имею ввиду CStdioFile
У меня сейчас РЕАЛЬНО мало времени, поэтому многие топики без ответов и не т времени код смотреть, но вот лови-может поможет.
Там с комментариями..

Присоединённый файл ( Кол-во скачиваний: 7 )
 ExampleRE.rar 38,22 Kb

Coocky
Посмотрел пример, кой-чему научился

Ну, только что переписал функцию, вроде все работает, но есть небольшая (и не новая) проблема.
Вылетаю при попытке освободить память, выделенную под массив для текста кода.
Скажите, если я выделяю память под двумерный динмассив, как ее правильно освободить?
Достаточно delete [] arrSzCode; ?
Потому что вылетаю именно на :
for(int j=0; j<nLineCount; j++) delete [] arrSzCode[j];

Код

void CMyDlg::OnToolsRun() {     int nLineCount = m_editCode.GetLineCount();     char **arrSzCode = new char*[nLineCount];     CString strCodeFromEditCtrl;     m_editCode.GetWindowText(strCodeFromEditCtrl);           char *pToken;     pToken = strtok(strCodeFromEditCtrl.GetBuffer(),"\r\n");     int i=0;     while (pToken != NULL){         arrSzCode[i] = new char[256];         strcpy(arrSzCode[i], pToken);         strcat(arrSzCode[i],"\n");         m_editOutput.SetSel(-1,-1);         m_editOutput.ReplaceSel(arrSzCode[i], FALSE);         pToken = strtok(NULL, "\r\n");         i++;     }                       //for(int j=0; j<nLineCount; j++)     //    delete [] arrSzCode[j];     delete [] arrSzCode; }