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]);