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

markieren

Delphi-Quellcode:

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

Mfg ReDoX

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

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:

markieren

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;

Ein weiterer Weg wäre:

markieren

Delphi-Quellcode:

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

Wenn wir mal von möglichen Varianten ausgehen

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:

markieren

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:

markieren

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

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