Question

用delphi编写一个一维条形码

Answer 1

这个不是写的问题，而是显示的问题。
1234567就可以是一个一维条码。

Answer 2

if Dir[length(Dir)] <>'\' then Dir:=Dir+'\';
result :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*',faAnyFile+faDirectory,FSearchRec);
try
while FindResult = 0 do
begin
result.Add(LowerCase(FSearchRec.Name));
FindResult:=FindNext(FSearchRec);
end;
finally
FindClose(FSearchRec);
end;
//FileList.Sorted:=true;
end;