Delphi groß/kleinschreibung

Thema durchsuchen

Ansicht

Themen-Optionen

groß/kleinschreibung

Ein Thema von m.p.h. · begonnen am 25. Feb 2006 · letzter Beitrag vom 22. Mai 2006

Vorheriger Beitrag

Nächster Beitrag

Nicolai1234

Registriert seit: 21. Feb 2004
1.008 Beiträge

Turbo Delphi für Win32

#11

Re: groß/kleinschreibung

25. Feb 2006, 21:28

nein, daran liegt es nicht! Code von alzaimar in "richtiger" Form:

zusammenfalten · markieren

Delphi-Quellcode:

			Var

  bFirst : boolean;

  i : Integer;

Begin

  bFirst := True; // <-- Nachträglich eingefügt

  For i := 1 to Length (aWord) do Begin

    If bFirst Then begin

      aWord[i] := Upc(aWord[i]);

      bFirst := False;

      end

    else

      aWord[i] := LowerCase(aWord[i]);

    bFirst := (aWord[i]=' ');

  End;

End;