|
Internet Direct (Indy) Version 9.0.1 Beta
|
// find non-whitespace character
iPos := FindFirstNotOf(' ' + TAB + CR + LF, sData);
if iPos > 0 then
AStrings.Add(Copy(sData, 1, iPos-1))
else
AStrings.Add(sData)