program TestApp; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { add your units here }, LCLTextFileInString, SvnInfoReader, FlistFormat, LCLAnIniFile, IssFormat, ExtraFunctionsLCL; //var-ы для тестов вбивать сюда. ////Тест модификации TTextFileInString. //var //TestText : TTextFileInString; ////Тест TSvnInfoReaded //var //TestSvnReader : TSvnInfoReader; //PathStr : AnsiString; ////Тест TFlistFormat //var //FlistFile : TFlistFormat; ////Тест TAnIniFile //var //AnIniFile : TAnIniFile; //ValueList : AIniValueList; ////Тест TIssFormat //var //IssFile : TIssFormat; ////Тест ParseNumericHead //var //InputStr, ParsedStr : AnsiString; begin //Сюды (ниже) - вбивать тесты. ////Тест модификации TTextFileInString. //TestText := TTextFileInString.Create; //TestText.Load('..\..\..\entries'); //repeat //Writeln(TestText.CurReadLn); //until TestText.Eof; //TestText.Free; ////Тест TSvnInfoReaded //TestSvnReader := TSvnInfoReader.Create; ////PathStr := 'Z:\home\sagrer\haiku\haiku\trunk'; //PathStr := 'E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk'; //Writeln(TestSvnReader.IsSvnDir(PathStr) ); //Writeln(TestSvnReader.GetSvnDirFormat(PathStr) ); //Writeln(TestSvnReader.GetSvnDirRevision(PathStr)); //TestSvnReader.Free; ////Тест TFlistFormat //FlistFile := TFlistFormat.Create; //FlistFile.GlobalRoot := 'E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\generated'; //FlistFile.AddRealDirectory('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\generated',true); //FlistFile.Save('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\test1.flist'); //FlistFile.RemoveDirectory('.\src'); //FlistFile.Save('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\test2.flist'); //FlistFile.Free; ////Тест TAnIniFile. //AnIniFile := TAnIniFile.Create; //AnIniFile.Load('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\default.iss'); //SetLength(ValueList,0,0); //AnIniFile.ReadIniValueList('Types',ValueList); //AnIniFile.RemoveIniValueListValue(ValueList,0,'Description'); //AnIniFile.WriteIniValueList('Types',ValueList); //SetLength(ValueList,0,0); //AnIniFile.ReadIniValueList('Registry',ValueList); //AnIniFile.RemoveIniValueListElement(ValueList,0); //AnIniFile.WriteIniValueList('Registry',ValueList); //SetLength(ValueList,0,0); //AnIniFile.Save('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\test1.iss'); //AnIniFile.Free; ////Тест TIssFormat //IssFile := TIssFormat.Create; //IssFile.Load('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\default.iss'); ////IssFile.RemoveInstalType('StandardInstall'); //IssFile.WriteInstallType('StandardInstall','Name: StandardInstall; Description: НеОбыкновенная установка; Languages: '); //IssFile.Save('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\test1.iss'); //IssFile.Free; ////Тест ParseNumericHead //InputStr := '12345abcd'; //ParsedStr := ParseNumericHead(InputStr); //Writeln(InputStr); //Writeln(ParsedStr); //Ждать нажматия Enter-а Writeln('Done.'); Readln(); end.