モナーの *やさしい* Delphi質問スレ Ver.5
レス数が900を超えています。1000を超えると表示できなくなるよ。
0900デフォルトの名無しさん
NGNGtype TArrayString = array of strings;
function Split(s,sep:string):ArrayString;
var n:Integer;
begin
with TStringList.Create do try
while s<>'' do begin
n:=Pos(sep,s);
if n>0 then begin
add(copy(s,1,n-1));
delete(s,1,n+Length(sep));
end else begin
add(s);brek;
end;
end;
SetLength(Result,Count);
for n:=0 to Count-1 do Result[n]:=Strings[i];
finally free;end;
end;
レス数が900を超えています。1000を超えると表示できなくなるよ。