Line 11 unit1.pas(1121,13) Error: Invalid assignment, procedures return no value
ExtractFileName is defined as a function
So what's happening here?
thanks
Type
uses ...StrUtils;
procedure TForm1.StripAndLoadLBX;
Var i : Integer;
Item : RawByteString;
begin
for i := 0 to LBWork.Items.Count -1 do begin
Item := LBWork.Items[i]; { 'D:\QL\doublex\ccompileroptions.txt'}
Item := ExtractFileName( Item ); {< Error Here}
Item := Copy2Symb( Item, '.' );
LBX.Items.ADD(Item);
end;
end;
code]