ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽﾈゑｿｽｿｽｿｽ 2007/06/15(ｿｽｿｽ) 16:24:08

ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾆ関係ｿｽｿｽｿｽ驍ｱｿｽﾆなのでゑｿｽｿｽｿｽｿｽATMemo.lines.loadfromfileｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
AssignFileｿｽｿｽgｿｽpｿｽｿｽｿｽﾄ読み搾ｿｽｿｽだほゑｿｽｿｽｿｽｿｽｿｽｿｽ|ｿｽIｿｽﾉ読搾ｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾟにゑｿｽｿｽいｿｽｿｽlｿｽｿｽｿｽﾄみゑｿｽｿｽ閧ｵｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、ｿｽﾜゑｿｽｿｽmｿｽbｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾈ会ｿｽｿｽﾇ搾ｿｽｿｽpｿｽXｿｽｿｽｿｽbｿｽhｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽB

procedure TFileRead.Execute;
var
  F1: TextFile;
  Ch: char;
  filename : string;
  msg : string;

begin

  AssignFile( F1, Filename );
  msg :='';
  Reset( F1 );
  while not Eof( F1 ) do
  begin
    Read( F1, Ch );
    msg := msg + chr(Ord( Ch ));
  end;
  
  Synchronize(write);
  CloseFile( F1 );

end;

procedure TFileRead.write;
begin
  Form1.Memo1.Lines.Add(msg);
end;

ｿｽｿｽｿｽｿｽｿｽｿｽ 2007/06/15(ｿｽｿｽ) 17:15:12

procedure TFileRead.Execute(lines: TStrings); //ｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽ

  lines.BeginUpdate; //ｿｽﾇ会ｿｽ

  AssignFile( F1, Filename );
ｿｽ@ｿｽ`ｿｽ`ｿｽ`
    Readln( F1, msg );ｿｽ@//ｿｽﾏ更
    lines.Add(msg); //ｿｽﾇ会ｿｽ
    (ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽXｿｽoｿｽ[.step;)
ｿｽ@ｿｽ`ｿｽ`ｿｽ`
  CloseFile( F1 );  

  lines.EndUpdate; //ｿｽﾇ会ｿｽ

Basser 2007/06/15(ｿｽｿｽ) 17:20:15

ｿｽｿｽxｿｽﾉ全ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽxｿｽﾌサｿｽCｿｽYｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

  procedure TFileRead.Execute;
  const
    TEXTSIZE = 65536; 
  var
    F1: TextFile;
    filename : string;
    msg, LineBuf: String;
  begin

    AssignFile(F1, Filename );
    msg:= '';
    Reset(F1);
    while not Eof(F1) do
    begin
      Readln(F1, LineBuf);

      msg:= msg + LineBuf + #13#10

      if (Length(msg) >= TEXTSIZE) or Eof(F1) then
      begin
        Synchronize(write);
        msg:= '';
      end;
    end;

    CloseFile( F1 );
  end;

ｿｽﾈゑｿｽｿｽｿｽ 2007/06/15(ｿｽｿｽ) 18:48:00

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
BlockReadｿｽｿｽgｿｽpｿｽｿｽｿｽ驍ｱｿｽﾆで厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽﾈゑｿｽｿｽｿｽ 2007/06/16(ｿｽy) 18:45:08

ｿｽQｿｽlｿｽﾜでに擾ｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾇ搾ｿｽｿｽeｿｽLｿｽXｿｽgｿｽ@20.9MB 658590ｿｽs
TMemo.lines.loadfromfileｿｽi20ｿｽb) ｿｽｿｽｿｽv20ｿｽb
BlockReadｿｽｿｽｿｽｿｽmsgｿｽﾉ難ｿｽｿｽｿｽ(16ｿｽb) >> Tmemo.Linesｿｽﾖ一括ｿｽｿｽｿｽｿｽ(18ｿｽb) 34ｿｽb
Basserｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽh(Tmemo.Linesｿｽﾖ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ) 85ｿｽb

ｿｽｿｽｿｽｿｽLoadFromFileｿｽﾅ読み搾ｿｽｿｽﾞのゑｿｽｿｽｿｽﾔ托ｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽﾎ通ゑｿｽAｿｽ]ｿｽvｿｽﾈ擾ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽB
ｿｽﾂ人ｿｽIｿｽﾉはｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽmsgｿｽｿｽｿｽｿｽTmemoｿｽﾖ難ｿｽｿｽﾍゑｿｽｿｽｿｽﾌに、
ｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾈに趣ｿｽｿｽﾔゑｿｽHｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ^ｿｽ竄ｾｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽlｿｽABasserｿｽlｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.