home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / tricks / jrtstrng.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-06-23  |  1.2 KB  |  42 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    JRTSTRNG.PAS                        *)
  3. (*             Leerstrings in JRT Pascal                  *)
  4. (*         (c) by Michael Haardt und TOOLBOX              *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM String_Test;
  7.  
  8. TYPE LongStr = RECORD
  9.                  CASE INTEGER OF
  10.                    1: (str: STRING[65535]);
  11.                    2: (mem: INTEGER);
  12.                END;
  13.  
  14. VAR  s1, s2, s3: STRING[20];
  15.      i         : INTEGER;
  16.  
  17. PROCEDURE Nul(VAR s: LongStr);
  18. BEGIN
  19.   s.mem := 0;
  20. END;
  21.  
  22. PROCEDURE DeleteStr(VAR s: LongStr; p1, p2: INTEGER);
  23. BEGIN
  24.   IF (p1=1) AND (Length(s.str)=p2) THEN
  25.     Nul(s)
  26.   ELSE
  27.     Delete(s.str, p1, p2);
  28. END;
  29.  
  30. BEGIN
  31.   s1 := `Test'; Nul(s2); s3 := s2;
  32.   FOR i:=1 TO 4 DO BEGIN
  33.     WriteLn(s1, Length(s1),' ',s2, Length(s2),' ',
  34.             s3, Length(s3),' ',s1);
  35.     DeleteStr(s1, 1, 1);
  36.     s2 := Concat(s2,'!'); s3 := s2;
  37.   END;
  38.   WriteLn(s1, Length(s1),' ',s2, Length(s2),' ',
  39.           s3, Length(s3),' ',s1);
  40. END.
  41. (* ------------------------------------------------------ *)
  42. (*                 Ende von JRTSTRNG.PAS                  *)