Question

输入一字符串怎样用Delphi转换成条形码并进行保存,思路是什么啊

Answer 1

没必要转换，直接保存这个字符串就行，
你应该知道条形码也是字符串吧。

Answer 2

条形码是一种字体而已，明白了吧

Answer 3

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;