Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
22. Mai 2006
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:
i := Pos('+', S);
If i <> 0 Then Begin
If (i > 1) and (S <> ' ') Then Insert(' ', S, i);
If (i < Length(S)) and (S <> ' ') Then Insert(' ', S, i + 1);
End;
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
21. Mai 2006
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 ^^
SetterMethode := CreateCorrectName(GetterMethode);
// GetterMethode > get - Wert auslesen
//...
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
17. Mai 2006
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.
Function CreateCorrectName(Const MyName: String): String;
Var i: Integer;
Begin
Result := AnsiLowerCase(Trim(MyName));
i := 1;
While i <= Length(Result) do Begin
Result :=...
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
17. Mai 2006
Wie wäre es in der Art
Function CreateCorrectName(Const MyName: String): String;
Var i: Integer;
Begin
Result := AnsiLowerCase(Trim(MyName));
If Result = '' Then Exit;
i := 1;
While i > 0 do Begin