Unix파일 (.sam) 델파이에서 읽기 방법

Unix파일 (.sam) 델파이에서 읽기 방법

 

 

procedure ReadUnixLn(var fd: TextFile; var s: string);

var

i,a: integer;

c: char;

begin

i := 0;

a := 0;

while ( not Eof(fd) ) do

begin

Read(fd,c);

if ( c=Chr(10) ) then exit;

SetLength(s,i+1);

s[i] := c;

Inc(i);

inc(a);

end;

end;

 

procedure TfrmSisdMain.Button2Click(Sender: TObject);

var

fd: TextFile;

s: string;

begin

try

AssignFile(fd,'C:\Root\post_real\IN\20140219.IAQ000601D.d.out_tsa.sam');

FileMode := 0;

Reset(fd);

while ( not Eof(fd) ) do

begin

ReadUnixLn(fd,s);

Memo1.Lines.Add(s);

end;

except

on e:EInOutError do

ShowMessage(e.Message);

end;

end;