iTest |
|
|
|
GrandRURU
站務副站長   發表：240 回覆：1680 積分：1874 註冊：2005-06-21 發送簡訊給我 |
procedure TForm2.Button1Click(Sender: TObject);
var
s: string;
ss: TStringStream;
i: Integer;
begin
s := TFile.ReadAllText('c:\592e6fe04358a_testdata.txt'); // uses IOUtils
i := 1;
while i < Length(s) do if s[i] = #0 then Delete(s, i, 1) else Inc(i);
ss := TStringStream.Create(s);
try Memo1.Text := ss.DataString;
finally ss.Free;
end;
end;
:= Request0];
AFileName ExtractFileName(Request0];
AFileName ExtractFilePath(0)) ;
AFile .Create(AFileName;
.Files[.Stream:= ;
AFile.Files[.Stream.Files[.Stream; finally
AFile;
;
FFileName ;
編輯記錄
GrandRURU 重新編輯於 2014-09-01 17:23:33， 註解 無‧
GrandRURU 重新編輯於 2017-06-02 09:36:44， 註解 無‧ GrandRURU 重新編輯於 2017-06-02 09:36:55， 註解 無‧ GrandRURU 重新編輯於 2017-06-02 09:37:09， 註解 無‧ GrandRURU 重新編輯於 2017-06-02 09:37:19， 註解 無‧ GrandRURU 重新編輯於 2017-06-02 09:37:51， 註解 無‧ GrandRURU 重新編輯於 2017-06-02 09:39:37， 註解 無‧ GrandRURU 重新編輯於 2018-05-28 09:53:23， 註解 無‧ |
發表時間：2014-09-01 17:22:32
IP:59.120.xxx.xxx 未訂閱
系統時間：2024-04-26 8:42:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |