StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PODelphi 2010 WriteLn to TextFile cutting off around 55 characters
text
Body
copied!<p>Given this mess (designed years ago to write some data out csv "field1","field2") the output file has began stopping around 55 characters. Same happens in a showmessage() call or placing inside a local String variable. Converting to a TStringList to clean the code up even fails in the same way. Inspecting this as a local string variable in the IDE while the code is stopped shows the entire built string as planned. ShowMessage() even puts trailing ellipsis ... on the end.</p> <p>I end up with "LD","BC63781S","JACKSON","MS","DENVER","CO","1186","0"... in showmessage and "LD","BC63781S","JACKSON","MS","DENVER","CO","1186","0" in the on disk file.</p> <p>Better readability <a href="https://gist.github.com/788839" rel="nofollow">https://gist.github.com/788839</a> </p> <pre><code>Writeln(F, '"'+ ACtion + '","' + Ini.ReadString('IP_ITS','BAccount','TEST') + '","' + FieldByName('PICKCITY').AsString + '","' + FieldByName('PICKST').AsString + '","' + FieldByName('DROPCITY').AsString + '","' + FieldByName('DROPST').AsString + '","' + FieldByName('TOT_MILES').AsString + '","' + FloatToStr(AWeight) + '","' + FieldByName('LENGTH').AsString + '","' + FloatToStr(AStops) + '","' + ''{grosspay} + '","' + FieldByName('PICK_DATE').AsString + '","' + FieldByName('PICK_TIME').AsString + '","' + FieldByName('DROP_DATE').AsString + '","' + FieldByName('DROP_TIME').AsString + '","' + AEquip + '","","' + ALTL + '"' + ',"","' + '","1","' + Ini.ReadString('IP_ITS','BComp','BAccount') + FieldByName('PRO_NO').AsString + '","","","","",""' ) </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload