• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revision277f11affe68892c60459611bc667b14d8f25295 (tree)
Time2005-05-22 21:06:59
Authorh677 <h677>
Commiterh677

Log Message

Format文の入れ子を解消

Change Summary

Incremental Difference

--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -772,7 +772,7 @@ begin
772772 if (Trim(Rec.FFileName) = '') or (Trim(Rec.FTitle) = '') then
773773 Continue;
774774
775- s := Format('%x', [cnt]) + #1 //番号
775+ {s := Format('%x', [cnt]) + #1 //番号
776776 + Rec.FFileName + #1 //ファイル名
777777 + Rec.FTitle + #1 //タイトル
778778 + Format('%x', [Rec.FCount]) + #1 //カウント
@@ -787,11 +787,30 @@ begin
787787 + Format('%x', [Rec.FCount]) + #1 //AllResCount
788788 + Format('%x', [0]) + #1 //NewResCount
789789 + Format('%x', [0]); //AgeSage
790+ }
791+ s := Format('%x'#1'%s'#1'%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1 +
792+ '%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x',
793+ [cnt, //番号
794+ Rec.FFileName, //ファイル名
795+ Rec.FTitle, //タイトル
796+ Rec.FCount, //カウント
797+ 0, //size
798+ 0, //RoundDate
799+ 0, //LastModified
800+ 0, //Kokomade
801+ 0, //NewReceive
802+ '0', //未使用
803+ 0, //UnRead
804+ 0, //ScrollTop
805+ Rec.FCount, //AllResCount
806+ 0, //NewResCount
807+ 0] //AgeSage
808+ );
790809
791810 sl.Add(s);
792811 inc(cnt);
793812 end;
794- sl.EndUpdate;
813+ sl.EndUpdate;
795814 sl.SaveToFile(FileName);
796815 finally
797816 sl.Free;
@@ -839,21 +858,24 @@ begin
839858
840859 for i := 0 to Board.Count - 1 do begin
841860 Board.Items[i].No := i + 1;
842- s := Format('%x', [Board.Items[i].No]) + #1
843- + Board.Items[i].FileName + #1
844- + Board.Items[i].Title + #1
845- + Format('%x', [Board.Items[i].Count]) + #1
846- + Format('%x', [Board.Items[i].Size]) + #1
847- + Format('%x', [DateTimeToInt(Board.Items[i].RoundDate)]) + #1
848- + Format('%x', [DateTimeToInt(Board.Items[i].LastModified)]) + #1
849- + Format('%x', [Board.Items[i].Kokomade]) + #1
850- + Format('%x', [Board.Items[i].NewReceive]) + #1
851- + '0' + #1 //未使用
852- + Format('%x', [BoolToInt(Board.Items[i].UnRead)]) + #1
853- + Format('%x', [Board.Items[i].ScrollTop]) + #1
854- + Format('%x', [Board.Items[i].AllResCount]) + #1
855- + Format('%x', [Board.Items[i].NewResCount]) + #1
856- + Format('%x', [Ord(Board.Items[i].AgeSage)]);
861+ s := Format('%x'#1'%s'#1'%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1 +
862+ '%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x',
863+ [Board.Items[i].No, //番号
864+ Board.Items[i].FileName, //ファイル名
865+ Board.Items[i].Title, //タイトル
866+ Board.Items[i].Count, //カウント
867+ Board.Items[i].Size, //size
868+ DateTimeToInt(Board.Items[i].RoundDate), //RoundDate
869+ DateTimeToInt(Board.Items[i].LastModified), //LastModified
870+ Board.Items[i].Kokomade, //Kokomade
871+ Board.Items[i].NewReceive, //NewReceive
872+ '0', //未使用
873+ BoolToInt(Board.Items[i].UnRead), //UnRead
874+ Board.Items[i].ScrollTop, //ScrollTop
875+ Board.Items[i].AllResCount, //AllResCount
876+ Board.Items[i].NewResCount, //NewResCount
877+ Ord(Board.Items[i].AgeSage)] //AgeSage
878+ );
857879
858880 sl.Add(s);
859881 end;
Show on old repository browser