関数ヘッダの追加。余分なコメント行の削除

diff --git a/MojuUtils.pas b/MojuUtils.pas
index dea2dd4..384e9d5 100644 (file)
--- a/MojuUtils.pas
+++ b/MojuUtils.pas
@@ -335,14 +335,15 @@ begin
 end;
 // *************************************************************************
 
-(*************************************************************************
- * dat\83t\83@\83C\83\8b\82Ì\88ê\83\89\83C\83\93\82ð\95ª\89ð
- *************************************************************************)
+{!
+\brief dat\83t\83@\83C\83\8b\82Ì\88ê\83\89\83C\83\93\82ð\95ª\89ð
+\param Line dat\83t\83@\83C\83\8b\82ð\8d\\90¬\82·\82é 1 \8ds
+\return     \83\8c\83X\8fî\95ñ
+}
 function DivideStrLine(Line: string): TResRec;
 const
        delimiter = '<>';
 var
-//     Delim: string;
        pds, pde : PChar;
        pss, pse : PChar;
 begin
@@ -352,9 +353,6 @@ begin
        pde := pds + Length(delimiter);
 
        if AnsiStrPosEx(pss, pse, pds, pde) = nil then begin
-       //if AnsiPos('<>', Line) = 0 then begin
-               //Delim := ',';
-               //Result.FType := glt2chOld;
                Line := CustomStringReplace(Line, '<>', '&lt;&gt;');
                Line := CustomStringReplace(Line, ',', '<>');
                Line := CustomStringReplace(Line, '\81\97\81M', ',');