groß/kleinschreibung

[TeronG]

Zitat von himitsu:

Und wegen der "linken Seite" ... geh nochmal in meinen Post da oben (hatte einiges durch Result ersetzt und gerade noch ein (i <= Length(Result) and eingefügt )

schon gesehen ^^ (und ge-edited)

UpperCase(const S: string): string; mag er nich .. aber UpCase( ch : Char ) : Char; mag er ^^

und gegen
While (i <= Length(Result) and not (Result[i] in [' ', '-', ',']) do Inc(i); hat er das:
[Fehler] Unit1.pas(37): Operator ist auf diesen Operandentyp nicht anwendbar

EDIT: ahh da fehlt ne klammer zu!
While (i <= Length(Result)) and not (Result[i] in [' ', '-', ',']) do Inc(i);

[danku]

Zitat von himitsu:

Außerdem muß ein Name ja nicht unbedingt per " " getrennt sein ... Doppelnamen werden oft per "-" getrennt und wenn man zuerst den Nachnamen angibt, mach man im Allgemeinen ein "," rein.

Delphi-Quellcode:

Function CreateCorrectName(Const MyName: String): String;
  Var i: Integer;

  Begin
    Result := AnsiLowerCase(Trim(MyName));
    i := 1;
    While i <= Length(Result) do Begin
      Result[i] := UpperCase(Result[i]);
      While (i <= Length(Result) and not (Result[i] in [' ', '-', ',']) do Inc(i);
      Inc(i);
    End;
  End;

In dem Code wird zwar bei mehreren aufeinanderfolgenden " ", "-" und/oder "," zwar unnötig versucht eines der Zeichen Großzuschreiben, aber dat is ja eigentlich egal ... jedenfalls wäre 'ne Abfrage um das zu verhindern nicht sehr viel Performanceeinbringender ^^

ich hab die fehler geändert aber trotzdem geht das noch nicht?

aufgerufen mit:

for i:= 0 to sgfiles.RowCount-1 do begin
CreateCorrectName(sgfiles.cells[0,i]);

[Hawkeye219]

Hallo danku,

himitsu stellt dir eine Funktion zur Verfügung, keine Prozedur

sgfiles.cells[0,i] := CreateCorrectName(sgfiles.cells[0,i]); Gruß Hawkeye

[himitsu]

Stimmt ... StringGrid.Cells ist ein Property (ist doch eines?) und da gibt's entweder Setter-, oder Getter-Methoden, man kann also den Wert entweder nur auslesen, oder setzen ... also nicht gleichzeitig, somit ist es nicht möglich dieses als eine Variable zu übergeben.

Lösung: siehe Vorredner ^^

Delphi-Quellcode:

SetterMethode := CreateCorrectName(GetterMethode);

// GetterMethode > get - Wert auslesen
// SetterMethode > set - Wert setzen/ändern

[danku]

wie kann ich das noch erweitern wenn z.b. folgender fall vorliegt:

test+test2 -> wird nach dem obengenannten prinzip so formatiert: Test+test2

Ziel:

test+test2 -> Test + Test2

[danku]

hat einer eine ahnung?

[himitsu]

einfach nach dem Plus suchen und dann jeweils das Zeichen davor und dahinter prüfen, ob's ein Leerzeichen ist und wenn nicht, dann einfach eines einfügen

Was man z.B. z.B. machen kann:

Delphi-Quellcode:

i := Pos('+', S);
If i <> 0 Then Begin
  If (i > 1) and (S[i - 1] <> ' ') Then Insert(' ', S, i);
  If (i < Length(S)) and (S[i + 1] <> ' ') Then Insert(' ', S, i + 1);
End;