Den Effekt erkennen
Nach jedem Element wird nur ein Semikolon zugewiesen.
Pass in; ABC; 123; JKL;
Pass in ABC ;; 123; JKL;
Pass in ABC ;;; 123; JKL Return ABC; 123; JKL;
Schlüsselfunktionen
Löschen {Funktion Beschreibung: Löschen Sie die angegebene Zeichenfolge in der Zeichenfolge. Diese Funktion hat drei Parameter. Der erste Parameter ist der String, der verarbeitet wird, der zweite Parameter ist, wo das Löschen beginnt, und der dritte Parameter ist die Anzahl der zu gelöschlichen Zeichen. } LinkSstr (Einheit: Strutils) {Funktion Beschreibung: Gibt das neue Zeichen (Zeichenfolge) zurück, das auf der linken Seite der Zeichenfolge angegeben wurde. Diese Funktion hat zwei Parameter. Der erste Parameter ist die vollständige Zeichenfolge, und der zweite Parameter ist die angegebene Zahl. } Rightstr (Einheit: Strutils) {Funktion Beschreibung: Gibt das neue Zeichen (Zeichenfolge) zurück, das rechts von der Zeichenfolge angegeben wurde. Diese Funktion hat zwei Parameter. Der erste Parameter ist die vollständige Zeichenfolge, und der zweite Parameter ist die angegebene Zahl. } Pos {Funktion Beschreibung: Finden Sie den Speicherort des Zeichens (Zeichenfolge). Diese Funktion hat zwei Parameter. Der erste Parameter ist das durchsuchende Zeichen (Zeichenfolge), und der zweite Parameter ist das zu durchsuchende Zeichen (Zeichenfolge). } Code: // verwendet erforderlich
Strudils -Einheit FUNKTIONALSTR (s: String): String; var S2, S3: String; var s1: widestrng; = ''; ('', S1), 1); ';'; S1: = RightStr (S1, Länge (S1) -Pos (';', S1)); Links if (s3 = ';) dann // Wenn die Zeichenfolge links nur ein Semikolon hat, beginne S2: = S2+S3; RightStr (S1, Länge (S1) -Pos (';', S1)) Ende;