TStringList LineBreak property and missing item
Original Reporter info from Mantis: hnb
-
Reporter name: Maciej Izak
Original Reporter info from Mantis: hnb
- Reporter name: Maciej Izak
Description:
String list contains bug. Last "single char" position in TStringList is omitted for custom LineBreak. Expected output:
a
b
c
Current output:
a
b
===example code===
{$APPTYPE CONSOLE}
uses Classes;
var
tmp: TStrings;
index: integer;
begin
tmp := TStringList.Create();
try
tmp.LineBreak := ',';
tmp.Text := 'a,b,c';
for index := 0 to tmp.Count - 1 do
WriteLn(tmp.Strings[index]);
finally
tmp.Free;
end;
ReadLn;
end.
Mantis conversion info:
- Mantis ID: 29150
- Version: 3.1.1
- Fixed in version: 3.1.1
- Fixed in revision: 32765 (#0042e1d3)
- Target version: 3.0.2