Code delphi:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function UpperCase: string; var   chars,i,p:integer;   temp1,temp2,Text:string; begin   For i := 0 to Form1.Memo2.Lines.Count-1 do     begin       Text := Form1.Memo2.Lines.Strings[i];       chars := length(Text);       temp1 := Text[1]; //Erstes Zeichen holen       temp2 := StuffString(Text,1,1,AnsiUpperCase(temp1)); //Erstes Zeichen groß       For p := 1 to chars do         begin           If Text[p] = '' then           temp2 := StuffString(Text,p+1,1,AnsiUpperCase(Text[p+1])); //Setzt alle Anfangsbuchstaben groß         end;       result := temp2;       Form3.Memo1.Lines.Add(result); //Ab ins Memo       end; end;

Ja,ich weiß, dass es noch umständlich geschrieben ist,ich hab das gerade auf die Schnelle machen müssen
Also die Funktion soll als erstes den Anfangsbuchstaben eines Strings groß setzen (was sie auch tut) und danach den String nach Leerzeichen durchsuchen (innere For-Schleife), um danach den nächsten Buchstaben groß zu setzen. Das funktioniert leider nicht, da wird gar nix gemacht....

Erkennt jemand den Fehler?

Hallo!

Ist wirklich nur eine Kleinigkeit, die Verzweigung greift nicht, weil anstelle des leerzeichens ein leerer String dasteht. Wenn du zwischen die Hochkommas noch ein Leerzeichen setzt, klappt es. Übrigens hab ich den Code mal etwas... verkürzt:

PHP-Code:

var
  chars,i,p:integer;
  temp1,temp2,Text:string;
begin
  For i := 0 to Memo2.Lines.Count-1 do
    begin
      Text := Memo2.Lines.Strings[i];
      chars := length(Text);
      text[1]:=AnsiUpperCase(text[1])[1];
      For p := 1 to chars do
        begin
          If Text[p] = ' ' then
          Text[p+1]:= AnsiUpperCase(text[p+1])[1]; //Setzt alle Anfangsbuchstaben groß
        end;
      Memo1.Lines.Add(text); //Ab ins Memo
      end;
end; 


Wohl auch noch etwas schmutzig, aber diese Funktion kannte Delphi nicht, deshalb schnell angepasst. Auch was die Memos angeht, wegen testen und so.

lg Hellie

Ach, sowas kotzt mich immer richtig an, wenns nur so Banalitäten sind...danke dir (wohl bald zum 100. Mal )