|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
Re: Ein ganz normaler String
20. Okt 2004, 21:48
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;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|