stort eller lille

F.eks. a eller A... Det lærer man i 1. klasse!

hved hjelp af et progrem selvfølgelig
det skal bruges til at konvertere en del rtf filer til html det skal brugs ved Æ,Ø og Å

Mvh. Simon

og andre specialtegn.

Du læser ASCII værdien af tegnet ved hjælp af ORD kommandoen ...

Jens B

A = chr(65)
Z = chr(90)
a = chr(97)
z = chr(122)

Når man så ved det kan man hurtigt finde ud af om et bogstav er stort eller lille - lav eksempelvis en for to loop lykke:

var
  i : integer; s : string;
begin
s = \'F\'; //bogstavet du gerne vil vide er stort eller lille
for i := 0 to 25 {90 - 65 = 25} do
if chr(65+i) = s then
showmessage(s+\' er et strot bogstav\') else
for i := 0 to 25 do
if chr(97+i) = s then
showmessage(s+\' er et lille bogstav\');
end;

Prøv det her og se om det virker (har nemlig ikke selv prøvet det... Hvis ikke så lad mig vide det så vi kan finde en anden løsning)

ZeroHero

OK - vi prøver igen (har prøvet at kompile denne gang)...

var
  i : integer; s : string;
begin
s := \'A\'; //bogstavet du gerne vil vide er stort eller lille
for i := 0 to 25 {90 - 65 = 25} do
if chr(65+i) = s then
showmessage(s+\' er et stort bogstav\') else
if chr(97+i) = s then
showmessage(s+\' er et lille bogstav\');
end;

...

Dette her virker!!!!

ZeroHero

ZeroHero >> For det engelske alfabet ....

Jens B

Jamen det kan da sagtens løses, hvis man vil have æ,ø og å (special tegn) med fordi:

æ = chr(230)
Æ = chr(198)
ø = chr(248)
Ø = chr(216)
å = chr(229)
Å = chr(197)

Hvis man kigger på chr værdierne så ses det at alle chr værdier over 228 er følgende æ, ø og å over under 229 er Æ,Ø og Å så tilføj følgende:

...
if chr(97+i) = s then
showmessage(s+\' er et lille bogstav\') else
//følgende tilføjes æ, ø og å
for i1 := 0 to 100 do
if chr(160+i1) = s then
if i1+160 >= 229 then
showmessage(s+\' er et lille bogstav\') else
showmessage(s+\' er et Stort bogstav\');
end;

ZeroHero

Så hele koden ser således ud:

var
  i, i1 : integer; s : string;
begin
s := \'Å\'; //bogstavet du gerne vil vide er stort eller lille
for i := 0 to 25 {90 - 65 = 25} do
if chr(65+i) = s then
showmessage(s+\' er et stort bogstav\') else
if chr(97+i) = s then
showmessage(s+\' er et lille bogstav\') else
for i1 := 0 to 100 do
if chr(160+i1) = s then
if i1+160 >= 229 then
showmessage(s+\' er et lille bogstav\') else
showmessage(s+\' er et Stort bogstav\');
end;

prøv den her :

type
  TLetterKind = (lkSmall, lkBig, lkSymbol);
function GetLetterKind(const ch : Char) : TLetterKind;
var
  i : Integer;
begin
(*
æ = chr(230)
Æ = chr(198)
ø = chr(248)
Ø = chr(216)
å = chr(229)
Å = chr(197)
*)
  i := ord(ch);
  Result := lkSymbol;
  if i in [65..90, 198,216, 198] then
    result := lkSmall;
  if i in [97..90, 230,248, 229] then
    result := lkBig;
end;


Jens B

Man kan jo også vælge en lettere fremgangsmåde:


function IsCharBig(ch: char): boolean
begin
  result := (ch = UpperCase(ch));
end;

function IsCharSmall(ch: char): boolean
begin
result := (cd = LowerCase(ch));
end;

Så slipper man for at bøvle med at finde diverse karakterområder. LowerCase og UpperCase bruger (så vidt jeg lige kan huske) regional settings i Windows til at finde store og små bogstaver.

hov minor bug. Det skal se således ud :

type
  TLetterKind = (lkSmall, lkBig, lkSymbol);
function GetLetterKind(const ch : Char) : TLetterKind;
var
  i : Integer;
begin
(*
æ = chr(230)
ø = chr(248)
å = chr(229)
Æ = chr(198)
Ø = chr(216)
Å = chr(197)
*)
  i := ord(ch);
  Result := lkSymbol;
  if i in [65..90, 198, 216, 197] then
    result := lkBig;
  if i in [97..122, 230, 248, 229] then
    result := lkBig;
end;


Jens B

torbenkoch>> virker ikke med æ, ø å...

ZeroHero

Hvorfor ikke???

Skal lige sige, at jeg ikke lige har en Delphi ved hånden, så jeg kan ikke selv afprøve det...!

fordi at uanset om man skriver æ eller Æ så siger delphi at det er et lille bogstav...

He! Typisk! Pokker tage det danske sprog ;-)

Prøv med AnsiUpperCase og AnsiLowerCase

unclebug >> Buuuh !!! Der er bare noget du har fundet på fordi du ikke kan lige min løsning. Nu var jeg ellers lige så stolt af den !!!!!

:-)

Jens B

Tak for jeres hurtige svar
da de alle ser ud til at virke får i alle nogle point.

Mvh. Simon