store-små bogstaver

Forskellen på stor og små bogstavers ASCII-værdier er 32.
A=65 a=97
B=66 b=98
Kan du ikke bruge det til noget?

så skal jeg jo til at finde hver enkelt bogstav! Det aner jeg ikke hvordan man gør.

Ønsker du hvert andet bogstav stort og hvert andet lille?

ja

sÅ dEn ViRkElIg BlIvEr IrRiTeReNdE at læse hvis du forstår!

Jeg har lavet en Memo og en knap, som konverterer teksten.
Koden til knappen ser således ud:

procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
s: String;
begin
  s:=Memo1.Text;
  Memo1.Clear;
  For X:=1 to length(S) do begin
    if x mod 2 = 0 then begin
      //Lav store bogstaver til små
      if (ord(S[x])>64) and (ord(S[x])<90) then
        S[x]:=Chr(Ord(S[x])+32);
      //Lav små bogstaver til store
      if (ord(S[x])>97) and (ord(S[x])<123) then
        S[x]:=Chr(Ord(S[x])-32);
    end;
  end;
  Memo1.Text:=S;
end;


Her et svar i Eksperten
bliver til
HEr eT Svar i EKsPeRtEn

det var lige det....
så skal de små poptøser få tilbage med deres egen medicin.

Den her er mere tilfældig:

function BadFormat(S: String): String;
var
  I: Integer;
begin
  Randomize;
  Result := '';

  for I := 1 to Length(S) do
    if Boolean(Random(2)) then
      Result := Result + AnsiUpperCase(S[I])
    else
      Result := Result + AnsiLowerCase(S[I]);
end;

:o)

den var også meget god...