The parser is skipping to the end of the string. It worked for a while and now it has stopped working
FM.LB7.Items.Strings[e] = 2,8,7,0,0,-1,-1,1,MNLY:1,11,3:0,8:0,3:1,8:0,3:2,8:0,3:3,8:0,3:4,8:0,3:5
and it is stopping here pTM^.House with an e convert error not a valid Integer and the "S" value is showing as " 3:5" so it has skipped everything in the string
Maybe some one with eyes wider than mine can see why :-)
Parser:=TCSVParser.Create;
Parser.Delimiter:=',';
for e:= 0 to FM.LB7.Items.Count -1 do
begin
Parser.SetSource(FM.LB7.Items.Strings[e]);
s := '';
pTM := RATeamL.NewRATeamAdd;
Parser.ParseNextCell;
s := Parser.CurrentCellText;
pTM^.House:= StrToInt(s);
Parser.ParseNextCell;
s := Parser.CurrentCellText;
pTM^.TType1:= StrToInt(s);
Parser.ParseNextCell;
s := Parser.CurrentCellText;
pTM^.Priority:= StrToInt(s);
~~~~~~~~
end;
Parser.Free;