Forum: Neuen Beitrag zur Code-Library hinzufügen
by Dipl Phys Ernst Winter,
4. Mai 2009
function KillDoppelZeichenToZeichen(S:string;C:Char):string;
Nachdem ich diese kriegerische Funktion in meine Beispielsammlung aufgenommen hatte, kam die Frage
wozu sie nütze ist.
Die Beispiele mit C=x erscheinen mir sinnlos, einzig C=Leerzeichen macht einen Sinn, dann sollten wir aber glech
function DeleteDouleSpace(s: string): string;
entwickeln, die führende und doppelte...
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Dipl Phys Ernst Winter,
3. Mai 2009
"Uropa" antwortet "Opa"
Halte Dich doch an das, was Du bewerkstelligen willst: Du willst Zeichen aus einem String löschen.
function TForm1.KillDoppelteZeichen(s: string): string;
var
i: integer;
begin
i:= 1;
repeat