各位大大： 想請問一下大家，我已經將資料產生至memo1，但是我想要逐漸分成8筆一群 7筆一群.....1筆一群，但是為何只有顯示memo1中得前2筆???謝謝大家 for q:=0 to 9 for p:=9 downto 0 do Memo2.lines[p]:=memo1.Lines[p]; cherng32

Hi cherng32,    試試這樣是不是你要的效果 < class="code"> MEMO2.LINES.CLEAR; FOR Q := 0 TO 9 FOR P := 9 DOWNTO Q DO MEMO2.LINES.ADD(MEMO1.LINES[P]); 發表人 -

------
Fishman

我的問題是我透過程式產生1-5之間的所有組合後，依字首相同的部分，分別存到不同的陣列之間，如下圖：    發表人 - cherng32 於 2004/04/06  15:56:23 發表人 - cherng32 於 2004/04/06 16:03:08

Hi cherng32,    Sorry !! 不是很清楚你的需求< > 可否再提供進一步詳細的說明？< > ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi cherng32,    試試這樣是不是你要的效果

procedure TForm1.Button1Click(Sender: TObject);
var
    I,J,C : Integer;
begin
    C := Memo1.Lines.Count - 1;
    Memo2.Lines.Clear;
    FOR I := 0 TO C DO
        BEGIN
            FOR J := 0 TO (C - I) DO
                BEGIN
                    Memo2.Lines.Add(Memo1.Lines[J]);
                END;
        END;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

原來是這樣，不好意思我是初學者，謝謝各位大大的回答< >< >