• API
• FAQ
• Tools
• Archive
SHARE
TWEET # Untitled r4lovets  Jan 7th, 2019 131 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. procedure DeleteTrash(var S: String);
2.
3. var
4.   Res: String;
5.   i: Integer;
6.   IsEmpty: Boolean;
7.
8. begin
9. {  Res := '';
10.   S := Res + ' ';
11.
12.   i := 1;
13.   while (i <= Length(S)) and ((i + 1) <= Length(S)) do
14.     begin
15.       if ((S[i] >= 'a') and (S[i] <= 'z')) or ((S[i] >= 'A') and (S[i] <= 'Z')) then
16.         Res := Res + S[i]
17.       else
18.         if ((S[i + 1] >= 'a') and (S[i + 1] <= 'z')) or ((S[i + 1] >= 'A') and (S[i + 1] <= 'Z')) then
19.           Res := Res + ' ';
20.       Inc(i);
21.     end;
22.
23.   if (Res = ' ') and (Length(Res) <> 1) then
24.     Delete(Res, 1, 1)
25.   else
26.     if (Res = ' ') and (Length(Res) = 1) then
27.       S := '';
28.
29.   if S[length(S)] <> ' ' then
30.     S := Res + ' ';
31. }
32.
33.   Res := '';
34.   S := S + ' ';
35.
36.   IsEmpty := True;
37.   for i := 1 to Length(S) do
38.     if ((S[i] >= 'a') and (S[i] <= 'z')) or ((S[i] >= 'A') and (S[i] <= 'Z')) then
39.       IsEmpty := False;
40.
41.   if not IsEmpty then
42.     begin
43.       i := 1;
44.       while i <= Length(S) - 1 do
45.         begin
46.           if ((S[i] >= 'a') and (S[i] <= 'z')) or ((S[i] >= 'A') and (S[i] <= 'Z')) then
47.             Res := Res + S[i]
48.           else
49.             if ((S[i + 1] >= 'a') and (S[i + 1] <= 'z')) or ((S[i + 1] >= 'A') and (S[i + 1] <= 'Z')) then
50.               Res := Res + ' ';
51.           Inc(i);
52.         end;
53.       Res := Res + ' ';
54.     end
55.   else
56.     Res := '';
57.
58.   S := Res;
59.
60. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.
Top