Upper/Lowercase bei Char

[ReDoX]

Hi,
Ich habe ein Problem und zwar wie muss ich das umschreiben damit es funktioniert?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var AString : String;
begin
 AString[1] := LowerCase(AString[1]);
end;

:gruebel:

Mfg ReDoX

[Keldorn]

für chars gibt es upcase, ein lowcase gibt es nicht. Es gibt noch strlower (hab aber nie damit gearbeitet). Da du eine Enterpriseversion hast, gugg dir einfach an, wie lowercase arbeitet. Einfach strg+klick drauf und du siehst es.

Mfg Frank

[Oxmyx]

Die Frage ist, was du überhaupt machen willst. Deine Funktion wandelt das erste Zeichen im String in ein großgeschriebenes Zeichen um. In dem String steht aber noch überhaupt nichts drin...

Delphi bringt keine LowCase-Funktion mit. Deshalb musst du dir selber eine schreiben:

Delphi-Quellcode:

function LowCase(c: Char): Char;
begin
  if c in ['A'..'Z'] then
    c := Chr(Ord(c) - Ord('A') + Ord('a'));
  Result := c
end;

[F.W.]

Ein weiterer Weg wäre:

Delphi-Quellcode:

var
 S: String;
 C: Char;
begin
 C := LowerCase(S[1])[1];
end;

Wenn wir mal von möglichen Varianten ausgehen :-D

[Binärbaum]

Zitat:

Zitat von Oxmyx

Die Frage ist, was du überhaupt machen willst. Deine Funktion wandelt das erste Zeichen im String in ein großgeschriebenes Zeichen um. In dem String steht aber noch überhaupt nichts drin...

Delphi bringt keine LowCase-Funktion mit. Deshalb musst du dir selber eine schreiben:

Delphi-Quellcode:

function LowCase(c: Char): Char;
begin
  if c in ['A'..'Z'] then
    c := Chr(Ord(c) - Ord('A') + Ord('a'));
  Result := c
end;

Die Funktion ist nicht schlecht, aber es fehlen noch die Umlaute:

Delphi-Quellcode:

function LowCase(c: Char): Char;
begin
 case c of
  'A'..'Z': Result:= Chr( Ord(c)-Ord('A')+Ord('a'));
  'Ä': Result:= 'ä';
  'Ö': Result:= 'ö';
  'Ü': Result:= 'ü';
 else Result:= c;
 end; 
end;

MfG
Binärbaum

[ReDoX]

Danke an alle und besonders an oxmyx und Binärbaum jetzt habe ich einen Function dafür :thumb:
Ist das nicht auch was für die Code-Library?
Mfg ReDoX