请各位进来看一下帮帮忙,关于memo

Question

Memo控件里有如下内容:
123456,23456,3456,456,56,6,77,88,99
要怎么样才能把他们分开显示在ListView里面?并且只显示其中的3数字个,显示下3个数字必须要按一下按钮.再按一下显示下3个数字.

Answer 1

function TForm1.ExtractString(const aString: string; const aSeparator: char; var aPos: Integer): string;
var
  I: Integer;
begin
  I := aPos;
  while (I <= Length(aString)) and (aString[I] <> aSeparator) do Inc(I);
  Result := Trim(Copy(aString, aPos, I - aPos));
  if (I <= Length(aString)) and (aString[I] = aSeparator) then Inc(I);
  aPos := I;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  lString, lSubString: string;
  lPos, j: integer;
begin
  lString := '123456,23456,3456,456,56,6,77,88,99';
  lPos := 1;
  j := 0;  while lPos <= Length(lString) do
  begin
    lSubString := ExtractString(lString, ',', lPos);
    inc(j);
    // 具體你可以把所有字符分離出來, 放進一個動態數組裡, 再按條件添加到ListBox
    if j = 2 then    // 第二個
      showmessage(lSubString);
  end;
end;