✔ Logikproblem bei eigener Funktion

[Alex Duschek]

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?

 

[Hellie]

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:

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

 

[Alex Duschek]

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