1 { This unit collects all resource strings of the project } 2 unit StringsUnit; 3 4 {$mode objfpc}{$H+} 5 6 interface 7 8 resourcestring 9 rsBeer = 'Beer'; 10 rsWine = 'Wine'; 11 rsWater = 'Water'; 12 rsYouSelected = 'You selected %s.'; 13 rsYouSelectedAt = 'You selected %0:s at %1:s.'; 14 rsTodayIs = 'Today is %s'; 15 rsOne = 'One'; 16 rsTwo = 'Two'; 17 rsThree = 'Three'; 18 rsFour = 'Four'; 19 rsFive = 'Five'; 20 rsSix = 'Six'; 21 rsSeven = 'Seven'; 22 rsEight = 'Eight'; 23 rsNine = 'Nine'; 24 rsSumOfSelectedNumbers = 'Sum of selected numbers: %s'; 25 26 implementation 27 28 end. 29 30