fork download
copy 
  1. uses Classes;
  2.  
  3. const Str:String='1;2013/07/31;22:05;24.9;2.5;#;99.0;#;0.0;0.0;#;0.0;0.0;0.0;0.0;28.4;0;E;0;0;0;70.1;1317.0;0.0;1.6;0;D7D9';
  4. var Lst:TStringList;
  5. var I:Integer;
  6.  
  7. begin
  8.   Lst:=TStringList.Create;
  9.   Lst.Delimiter:=';';
  10.   Lst.DelimitedText:=Str;
  11.   for I:=0 to Lst.Count-1 do
  12.   begin
  13.     WriteLn(Lst[I]);
  14.   end;
  15.   Lst.Free;
  16. end.
Success #stdin #stdout 0s 632KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2013/07/31
22:05
24.9
2.5
#
99.0
#
0.0
0.0
#
0.0
0.0
0.0
0.0
28.4
0
E
0
0
0
70.1
1317.0
0.0
1.6
0
D7D9
https://ideone.com/jQd2JK
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!