MAJOR_VERSION = 1;
MINOR_VERSION = 0;
RELEASE_VERSION = 'beta';
- REVISION_VERSION = 23;
+ REVISION_VERSION = 24;
// =========================================================================
// \8eG\97p\8aÖ\90\94
IDX_ID: Integer = 3;
IDX_ADDST: Integer = 1;
IDX_ADDED: Integer = 5;
+ IDX_NO: Integer = 0;
var
+ DstTmp: TStringList;
ResLine: TStringList;
TmpLine: String;
i: Integer;
j: Integer;
Sep: Integer;
+ No: Integer;
+ GetNo: Integer;
begin
+ DstTmp := TStringList.Create;
ResLine := TStringList.Create;
try
+ No := Count + 1; // \8ds\94Ô\8d\86\81i\83\8c\83X\94Ô\8d\86\81j
for i := 0 to ioDat.Count - 1 do begin
// \82P\8ds\82ð\8d\80\96Ú\95Ê\82É\90Ø\82è\95ª\82¯\82é
ResLine.Clear;
TmpLine := TmpLine + SEP_TAG + ResLine.Strings[j];
end;
- ioDat.Strings[i] := TmpLine;
+ GetNo := StrToIntDef(ResLine.Strings[IDX_NO], 0);
+ while (GetNo > No) do begin
+ DstTmp.Add('');
+ Inc(No);
+ end;
+
+ DstTmp.Add(TmpLine);
+
+ Inc(No);
end;
+ ioDat.Clear;
+ ioDat.Assign(DstTmp);
finally
ResLine.Free;
+ DstTmp.Free;
end;
end;