"Kjeld Sørensen" <kjeld.s@mobilixnet.dk> wrote:
>Hej
>Jeg er helt grøn i programmering, men jeg spørger alligevel.
>Hvordan ændre jeg første bogstav i ugedagen i datoformatet til stort?
>
>Kode eksempel:
>procedure TForm1.FormActivate(Sender: TObject);
>var
> Dato: String;
>begin
> DateTimeToString(Dato, 'dddd" den "d". "mmmm yyyy', Date);
> Panel1.Caption := Dato;
>end;
>
>Ovenstående viser datoen som det skal, men da det er en overskrift bør
>begyndelsesbogstavet være med stort - hvordan gør man?
>
Her er en ide jeg selv brugte i Delphi 1, så jeg aner ikke om du kan bruge
ideen, eller om den også er gangbar i nyere versioner af Delphi....
Det består af følgende Dk_Names.Pas fil:
unit Dk_Names;
(* Denne unit oversætter måned- og dagnavne til dansk.
Indsættes efter Forms i projekt filen ( *.DPR ).
F.eks.:
uses
Forms,
Dk_Names,
Form1 in 'FORM1.PAS' {Form1};
*)
interface
implementation
Uses
SysUtils;
Const
DkShortMonth: array[1..12] of string[7] =
( 'jan', 'feb', 'mar', 'apr', 'maj', 'jun',
'jul', 'aug', 'sep', 'okt', 'nov', 'dec' );
DkLongMonth: array[1..12] of string[15] =
( 'januar', 'februar', 'marts', 'april', 'maj', 'juni',
'juli', 'august', 'september', 'oktober', 'november', 'december' );
DkShortDay: array[1..7] of string[7] =
( 'søn', 'man', 'tir', 'ons', 'tor', 'fre', 'lør' );
DkLongDay: array[1..7] of string[15] =
( 'søndag', 'mandag', 'tirsdag', 'onsdag', 'torsdag', 'fredag', 'lørdag' );
Var
LoopCount: Integer;
Initialization
for LoopCount := 1 to 12 do
begin
ShortMonthNames[ LoopCount ] := DkShortMonth[ LoopCount ];
LongMonthNames[ LoopCount ] := DkLongMonth[ LoopCount ];
end;
for LoopCount := 1 to 7 do
begin
ShortDayNames[ LoopCount ] := DkShortDay[ LoopCount ];
LongDayNames[ LoopCount ] := DkLongDay[ LoopCount ];
end;
end.
Rutinen er nem at ændre til lige de navne man ønsker brugt af
diverse datorutiner.
PS.: Håber at gruppen bærer over med denne "på grænsen til
dk.binaer" postning.
Med venlig hilsen
------------------
Ove Kjeldgaard
------------------
|