我想要把原本在TXT裡頭一長串的數字編碼，如"128 128 128 118 106 99 100 101 102....."等數字，做我想要的排列，如:"每3個"換行輸入
，變成
128 128 128
118 106 99
100 101 102
.... .... 這樣，而且"每幾行換行"能夠是我可以輸入的，可能是"每4行，或 每5行之類"，請問BCB程式碼該如何寫呢?

[code delphi]
procedure TfrmMain.Button1Click(Sender: TObject);
var
fn: string;
I,N: Integer;
L1,L2: TStringList;
begin
N := 4;
fn := 'D:\TEST.TXT';
if FileExists(fn) then
begin
L1 := TStringList.Create;
try
L1.LoadFromFile(fn);
if L1.Count>0 then
begin
L2 := TStringList.Create;
try
L2.Delimiter := #$20;
L2.DelimitedText := L1.Text;
L1.Clear;
for I := 0 to L2.Count-1 do
begin
if I mod N = 0 then L1.Add('');
L1[L1.Count-1] := L1[L1.Count-1] #$20 L2[I];
end;
finally
FreeAndNil(L2);
end;
ShowMessage(L1.Text);
end;
finally
FreeAndNil(L1);
end;
end;
end;

[/code]

謝謝!!我成功了~超級感謝!

編輯記錄

可以再請問一下嗎?若上述程式中的 N ，要變成以edit元件輸入，該如何改呢?


嗯嗯~~謝謝!我試成功了~ 感恩!
就此結案瞜~!

編輯記錄