尝试拆分字符串失败

Question

我在尝试将一个字符串拆分为2部分时编写了这段代码，稍后将其保存到数据库中。 目前，我已经成功地将3个单词字符串（如“单词单词编号”）分为3个字段，但是当我尝试将只有1个单词和数字（如“单词编号”）的字符串拆分为2个字段时，我收到了我无法理解的错误消息。

procedure Split
   (const Delimiter: Char;
    Input: string;
    const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

procedure TForm2.Button64Click(Sender: TObject);
var
   A: TStringList; i,c:integer;
begin
c:=0;
//for i:= 0 to ListBox1.Items.Count  do
//begin
   A := TStringList.Create;
 //  try
    // Split(' ',listbox1.Items.Strings[0], A) ;
     Split(' ',ListBox1.Items.Strings[ListBox1.ItemIndex], A) ;
  // finally
   //  A.Free;
   for i := 48 to 57 do
if A[1]<>char(i) then
  c:=1
else
if A[1]=char(i) then
  c:=2;

if c=1 then
begin
  edit81.Text:=(A[0]+' '+A[1]);
  edit82.Text:=A[2];
end
else
if c=2 then
begin
  edit81.Text:=A[0];
  edit82.Text:=A[1];
end;
end;

错误消息是：

First chance exception at $7C812FD3. Exception class EStringListError with message 'List index out of bounds (2)'. Process paligs.exe (732)

我试图从edit81字段中的字符串和edit 82字段中的数字中获取所有单词。

我的图片来自以下格式： http : //i.stack.imgur.com/7vnS8.jpg

Answer 1

您在这里要学习的最重要的事情是如何解释编译器产生的错误消息。 有时他们没有太大帮助，但是在这种情况下，这些消息会告诉您所有您需要了解的内容。

错误消息是：

List index out of bounds (2)

这意味着您正在访问列表的元素2，而元素2不存在。 这意味着该列表的大小可能为0或1。当您编写A[2] ，该列表会引发异常，因为A[2]不存在。

这完全是可以预期的。 如果拆分'word number'则结果为：

A[0] = 'word'
A[1] = 'number'

并且没有索引为2的元素。

您的代码访问A[2]可以在这里找到：

对于i：= 48至57，如果A [1] <> char（i）则c：= 1，否则，如果A [1] = char（i）则c：= 2;

显然，对于任何i值， 'number'从不等于char(i) ，因此将c设置为1 。 然后导致该代码执行：

if c=1 then
begin
  edit81.Text:=(A[0]+' '+A[1]);
  edit82.Text:=A[2]; // BOOM!
end