我试图通过使用类 Tbb2uc 来处理纯文本文件(加载到 StringList 中),但在调用函数 GetAddress 时获取 AV。
TArrayQuotePositions = array[1..4] of integer;
Tbb2uc = class(TObject)
private
Farrayquotes: TArrayQuotePositions;
SlInput: TStringList;
Inputfilename: TFileName;
SlOutput: TStringList;
function GetQuotePositions( aLine: string ): TArrayQuotePositions;
function GetInvoice( aLine: string ): string;
function GetName( aLine: string ): string;
function GetAddress( aLine: string ): string;
function GetSwift( aLine: string ): string;
function ProcessSl: integer;
public
constructor Create;
destructor Destroy; override;
function OpenFile: integer;
end;
function Tbb2uc.GetInvoice( aLine: string ): string;
var
quotesPos: TArrayQuotePositions;
begin
quotesPos := GetQuotePositions( aLine );
result := copy( aLine, quotesPos[3]+1, (quotesPos[4]-quotesPos[3])-1 );
end;
function Tbb2uc.GetName( aLine: string ): string;
var
quotesPos: TArrayQuotePositions;
begin
quotesPos := GetQuotePositions( aLine );
result := copy( aLine, quotesPos[3]+1, (quotesPos[4]-quotesPos[3])-1 );
end;
执行甚至不会跳转到函数中。我在调用这个函数时得到了 AV。
function Tbb2uc.GetAddress( aLine: string ): string;
var
quotesPos: TArrayQuotePositions;
address1: string;
address2: string;
begin
quotesPos := GetQuotePositions( aLine );
address1 := copy( aLine, quotesPos[1]+1, (quotesPos[2]-quotesPos[1])-1 );
address2 := copy( aLine, quotesPos[3]+1, (quotesPos[4]-quotesPos[3])-1 );
result := address1 + ' ' + address2;
end;
使用以上函数:
function Tbb2uc.ProcessSl: integer;
var
i: integer;
line: string;
invoice,name,addr,swift: string;
begin
SlInput.LoadFromFile( string(Inputfilename) );
//
for i := 0 to SlInput.Count -1 do begin
if ansipos( STARTSTRING, SlInput[i]) <> 0 then begin
invoice := GetInvoice(SlInput[i]);
name := GetName(SlInput[i+1]);
////
addr := GetAddress(SlInput[i+2]); //Access Violation
////
swift := GetSwift(SlInput[i+4]);
line := line + invoice + ';' + name + ';' + addr + ';' + swift;
end;
SlOutput.Add(line);
line := '';
end;
SlOutput.SaveToFile( OUTPUT_FNAME );
end;
执行正常,直到调用 GetAddress。在调试时,当评估 SlInput[i+2] 时,我得到“评估器中的表达式非法”,现在我不知道。正如你所看到的,我只处理字符串列表的行。