Commit: 277f11affe68892c60459611bc667b14d8f25295 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: 277f11affe68892c60459611bc667b14d8f25295 (tree)
• Time: 2005-05-22 21:06:59
• Author: h677 <h677>
• Commiter: h677

Log Message

Format文の入れ子を解消

Change Summary

• modified: GikoSystem.pas

Incremental Difference

--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -772,7 +772,7 @@ begin
 				if (Trim(Rec.FFileName) = '') or (Trim(Rec.FTitle) = '') then
 					Continue;
 
-				s := Format('%x', [cnt]) + #1					//”ԍ†
+				{s := Format('%x', [cnt]) + #1					//”ԍ†
 					 + Rec.FFileName + #1								//ƒtƒ@ƒCƒ‹–¼
 					 + Rec.FTitle + #1									//ƒ^ƒCƒgƒ‹
 					 + Format('%x', [Rec.FCount]) + #1	//ƒJƒEƒ“ƒg
@@ -787,11 +787,30 @@ begin
 					 + Format('%x', [Rec.FCount]) + #1	//AllResCount
 					 + Format('%x', [0]) + #1						//NewResCount
 					 + Format('%x', [0]);								//AgeSage
+				}
+				s := Format('%x'#1'%s'#1'%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1 + 
+							'%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x',
+					[cnt,			//”ԍ†
+					 Rec.FFileName, //ƒtƒ@ƒCƒ‹–¼
+					 Rec.FTitle,    //ƒ^ƒCƒgƒ‹
+					 Rec.FCount,     //ƒJƒEƒ“ƒg
+					 0,             //size
+					 0,             //RoundDate
+					 0,				//LastModified
+					 0,				//Kokomade
+					 0,				//NewReceive
+					 '0',			//–¢Žg—p
+					 0,				//UnRead
+					 0,				//ScrollTop
+					 Rec.FCount,	//AllResCount
+					 0,				//NewResCount
+					 0]             //AgeSage
+					);
 
 				sl.Add(s);
 				inc(cnt);
 			end;
-            sl.EndUpdate;
+			sl.EndUpdate;
 			sl.SaveToFile(FileName);
 		finally
 			sl.Free;
@@ -839,21 +858,24 @@ begin
 
 		for i := 0 to Board.Count - 1 do begin
 			Board.Items[i].No := i + 1;
-			s := Format('%x', [Board.Items[i].No]) + #1
-				 + Board.Items[i].FileName + #1
-				 + Board.Items[i].Title + #1
-				 + Format('%x', [Board.Items[i].Count]) + #1
-				 + Format('%x', [Board.Items[i].Size]) + #1
-				 + Format('%x', [DateTimeToInt(Board.Items[i].RoundDate)]) + #1
-				 + Format('%x', [DateTimeToInt(Board.Items[i].LastModified)]) + #1
-				 + Format('%x', [Board.Items[i].Kokomade]) + #1
-				 + Format('%x', [Board.Items[i].NewReceive]) + #1
-				 + '0' + #1	//–¢Žg—p
-				 + Format('%x', [BoolToInt(Board.Items[i].UnRead)]) + #1
-				 + Format('%x', [Board.Items[i].ScrollTop]) + #1
-				 + Format('%x', [Board.Items[i].AllResCount]) + #1
-				 + Format('%x', [Board.Items[i].NewResCount]) + #1
-				 + Format('%x', [Ord(Board.Items[i].AgeSage)]);
+			s := Format('%x'#1'%s'#1'%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1 +
+							'%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x',
+					[Board.Items[i].No,			//”ԍ†
+					 Board.Items[i].FileName, //ƒtƒ@ƒCƒ‹–¼
+					 Board.Items[i].Title,    //ƒ^ƒCƒgƒ‹
+					 Board.Items[i].Count,     //ƒJƒEƒ“ƒg
+					 Board.Items[i].Size,             //size
+					 DateTimeToInt(Board.Items[i].RoundDate),             //RoundDate
+					 DateTimeToInt(Board.Items[i].LastModified),				//LastModified
+					 Board.Items[i].Kokomade,				//Kokomade
+					 Board.Items[i].NewReceive,				//NewReceive
+					 '0',			//–¢Žg—p
+					 BoolToInt(Board.Items[i].UnRead),				//UnRead
+					 Board.Items[i].ScrollTop,				//ScrollTop
+					 Board.Items[i].AllResCount,	//AllResCount
+					 Board.Items[i].NewResCount,				//NewResCount
+					 Ord(Board.Items[i].AgeSage)]             //AgeSage
+					);
 
 			sl.Add(s);
 		end;