Ein ganz normaler String

[SP-120B]

Ich würde gerne bei beliebiger Eingabe den String so speichern, dass genau der erste Buchstabe groß geschrieben wird. Wie wird also aus rUIne Ruine?

[Luckie]

Kuck dir in der OH mal die Funktionen UpperCase und AnsiUpperCase an.

[SP-120B]

Wie erhalte ich denn Zugriff auf die Delphi Onlinehilfe?

[jim_raynor]

Drück F1 im Delphi-Editor :wall:

[SP-120B]

Den String nur in Großbuchstaben umzuwandeln war nicht mein Ziel. Falls es möglich ist, dann würde ich gerne genau den ersten Buchstaben des Strings großgeschrieben erhalten - alle anderen demnach kleingeschrieben. Geht das denn nicht?

[Luckie]

Wenn dein String in s steht bekommst du über den Index an jedes Zeichen einzeiln dran. s[1] wäre dann das erste Zeichen. String verbinden kann man mit dem Operator "+".

[mirage228]

Delphi-Quellcode:

uses SysUtils;

function ErsterGross(const Eingabe: String): String;
begin
  if Length(Eingabe) > 1 then
    Result := AnsiUpperCase(Eingabe[1]) + Copy(Eingabe, 2, Length(Eingabe)) else
  Result := AnsiUpperCase(Eingabe);
end;

Ungetestet, sollte aber gehen.

mfG
mirage228

[Christian Seehase]

Moin Zusammen,

und als Abwandlung:

Delphi-Quellcode:

function ErsterGrossRestKlein(const Eingabe: String): String;
begin
  Result := Eingabe;
  if Result = '' then exit;
  Result := AnsiUpperCase(Eingabe[1]) + AnsiLowerCase(copy(Eingabe, 2, Length(Eingabe)));
end;

[ibp]

wie wäre es mit...

Delphi-Quellcode:

function ErsterGrossRestKlein(const Eingabe: String): String;
begin
  if Eingabe = '' then exit;
  result:=AnsiLowerCase(Eingabe);
  result[1]:=AnsiUpperCase(Eingabe[1]);
end;

[edit] fehler verbessert :wall: [/edit]

[jim_raynor]

Zitat:

Zitat von ibp

wie wäre es mit...

Delphi-Quellcode:

function ErsterGrossRestKlein(const Eingabe: String): String;
begin
  if Eingabe = '' then exit;
  result:=AnsiLowerCase(Eingabe);
  result:=AnsiUpperCase(Eingabe[1]);
end;

Kleiner Fehler. Korrekt muss es so sein:

Delphi-Quellcode:

function ErsterGrossRestKlein(const Eingabe: String): String;
begin
  if Eingabe = '' then exit;
  result:=AnsiLowerCase(Eingabe);
  result[1]:=AnsiUpperCase(Eingabe[1]);
end;

man beachte die [1] bei result in der zweiten Zeile. Fehlt die, wird der String wieder komplett überschrieben.

P.S: Dieser :wall: Smiley ist einfach nur genial ;)