/* package whatever; // don't place package name! */
import java.util.*;
import java.lang.*;
import java.io.*;
/* Name of the class has to be "Main" only if the class is public. */
class Ideone
{
{
// your code goes here
procedure Explode
(var Dest
: TArrayOfString
; Text
: String; Separator
: String);var
begin
i := 0;
repeat
SetArrayLength(Dest, i+1);
if Pos(Separator,Text) > 0 then begin
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
Text := Copy(Text, Pos(Separator,Text) + Length(Separator), Length(Text));
i := i + 1;
end else begin
Dest[i] := Text;
Text := '';
end;
until Length(Text)=0;
end;
}
}
LyogcGFja2FnZSB3aGF0ZXZlcjsgLy8gZG9uJ3QgcGxhY2UgcGFja2FnZSBuYW1lISAqLwoKaW1wb3J0IGphdmEudXRpbC4qOwppbXBvcnQgamF2YS5sYW5nLio7CmltcG9ydCBqYXZhLmlvLio7CgovKiBOYW1lIG9mIHRoZSBjbGFzcyBoYXMgdG8gYmUgIk1haW4iIG9ubHkgaWYgdGhlIGNsYXNzIGlzIHB1YmxpYy4gKi8KY2xhc3MgSWRlb25lCnsKCXB1YmxpYyBzdGF0aWMgdm9pZCBtYWluIChTdHJpbmdbXSBhcmdzKSB0aHJvd3MgamF2YS5sYW5nLkV4Y2VwdGlvbgoJewoJCS8vIHlvdXIgY29kZSBnb2VzIGhlcmUKCQlwcm9jZWR1cmUgRXhwbG9kZSh2YXIgRGVzdDogVEFycmF5T2ZTdHJpbmc7IFRleHQ6IFN0cmluZzsgU2VwYXJhdG9yOiBTdHJpbmcpOwp2YXIKCWk6IEludGVnZXI7CmJlZ2luCglpIDo9IDA7CglyZXBlYXQKCQlTZXRBcnJheUxlbmd0aChEZXN0LCBpKzEpOwoJCWlmIFBvcyhTZXBhcmF0b3IsVGV4dCkgPiAwIHRoZW4JYmVnaW4KCQkJRGVzdFtpXSA6PSBDb3B5KFRleHQsIDEsIFBvcyhTZXBhcmF0b3IsIFRleHQpLTEpOwoJCQlUZXh0IDo9IENvcHkoVGV4dCwgUG9zKFNlcGFyYXRvcixUZXh0KSArIExlbmd0aChTZXBhcmF0b3IpLCBMZW5ndGgoVGV4dCkpOwoJCQlpIDo9IGkgKyAxOwoJCWVuZCBlbHNlIGJlZ2luCgkJCSBEZXN0W2ldIDo9IFRleHQ7CgkJCSBUZXh0IDo9ICcnOwoJCWVuZDsKCXVudGlsIExlbmd0aChUZXh0KT0wOwplbmQ7Cgl9Cn0=
Main.java:13: error: ';' expected
procedure Explode(var Dest: TArrayOfString; Text: String; Separator: String);
^
Main.java:13: error: ';' expected
procedure Explode(var Dest: TArrayOfString; Text: String; Separator: String);
^
Main.java:13: error: not a statement
procedure Explode(var Dest: TArrayOfString; Text: String; Separator: String);
^
Main.java:13: error: not a statement
procedure Explode(var Dest: TArrayOfString; Text: String; Separator: String);
^
Main.java:13: error: not a statement
procedure Explode(var Dest: TArrayOfString; Text: String; Separator: String);
^
Main.java:13: error: ';' expected
procedure Explode(var Dest: TArrayOfString; Text: String; Separator: String);
^
Main.java:15: error: ';' expected
i: Integer;
^
Main.java:15: error: not a statement
i: Integer;
^
Main.java:17: error: ';' expected
i := 0;
^
Main.java:19: error: ';' expected
SetArrayLength(Dest, i+1);
^
Main.java:19: error: not a statement
SetArrayLength(Dest, i+1);
^
Main.java:19: error: ';' expected
SetArrayLength(Dest, i+1);
^
Main.java:19: error: not a statement
SetArrayLength(Dest, i+1);
^
Main.java:19: error: ';' expected
SetArrayLength(Dest, i+1);
^
Main.java:20: error: '(' expected
if Pos(Separator,Text) > 0 then begin
^
Main.java:20: error: ')' expected
if Pos(Separator,Text) > 0 then begin
^
Main.java:20: error: not a statement
if Pos(Separator,Text) > 0 then begin
^
Main.java:20: error: ';' expected
if Pos(Separator,Text) > 0 then begin
^
Main.java:21: error: ']' expected
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:21: error: illegal start of expression
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:21: error: ';' expected
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:21: error: illegal start of expression
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:21: error: ';' expected
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:21: error: not a statement
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:21: error: ';' expected
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:21: error: not a statement
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:21: error: ';' expected
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
^
Main.java:22: error: illegal start of expression
Text := Copy(Text, Pos(Separator,Text) + Length(Separator), Length(Text));
^
Main.java:23: error: illegal start of expression
i := i + 1;
^
Main.java:24: error: not a statement
end else begin
^
Main.java:24: error: ';' expected
end else begin
^
Main.java:24: error: 'else' without 'if'
end else begin
^
Main.java:25: error: ']' expected
Dest[i] := Text;
^
Main.java:25: error: illegal start of expression
Dest[i] := Text;
^
Main.java:25: error: ';' expected
Dest[i] := Text;
^
Main.java:25: error: illegal start of expression
Dest[i] := Text;
^
Main.java:26: error: illegal start of expression
Text := '';
^
Main.java:26: error: empty character literal
Text := '';
^
Main.java:26: error: unclosed character literal
Text := '';
^
Main.java:28: error: ';' expected
until Length(Text)=0;
^
Main.java:28: error: not a statement
until Length(Text)=0;
^
Main.java:28: error: ';' expected
until Length(Text)=0;
^
Main.java:29: error: not a statement
end;
^
43 errors