Thema: Edit kopieren

Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Edit kopieren

  Alt 25. Feb 2016, 17:08
Nach den Beispielen sollte da
"grünblau" und "eigelbE" herauskommen.

ein erster Ansatz wäre
Delphi-Quellcode:
target:='';
for i:=1 to length(source) do
  case source[i] of
    $00..$20 : begin end;
    $30..$39 : begin end;
    else target:=target+source[i];
  end;{case----------------------}
ggf müßten dann noch !/&%$ und Konsorten heraus gefiltert werden.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat