/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Stort begyndelsesbogstav
Fra : Kjeld Sørensen


Dato : 17-12-00 14:32

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?

Mvh. Kjeld



 
 
Uffe Kousgaard (17-12-2000)
Kommentar
Fra : Uffe Kousgaard


Dato : 17-12-00 15:17

Dato[1]:= upcase(Dato[1]);

>
> Ovenstående viser datoen som det skal, men da det er en overskrift bør
> begyndelsesbogstavet være med stort - hvordan gør man?
>




Kjeld Sørensen (17-12-2000)
Kommentar
Fra : Kjeld Sørensen


Dato : 17-12-00 15:53

Åhh hvor er det smukt - og nemt når man lige ved hvordan!

Mange tak for hjælpen
Mvh. Kjeld


"Uffe Kousgaard" <uffe@routeware.dk> skrev i en meddelelse
news:WV3%5.118$V76.3290@news.get2net.dk...
> Dato[1]:= upcase(Dato[1]);
>
> >
> > Ovenstående viser datoen som det skal, men da det er en overskrift bør
> > begyndelsesbogstavet være med stort - hvordan gør man?
> >
>
>
>



Ove Kjeldgaard (17-12-2000)
Kommentar
Fra : Ove Kjeldgaard


Dato : 17-12-00 22:20

"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
------------------

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408927
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste