아래 답변은 텍스트파일형태가 이런 형태여야 합니다.

무조건 탭문자를 구분자로 했을때...





123 탭문자 4 5 6 탭문자 7890 개행문자

456 탭문자 4 5 6 탭문자 7890 개행문자

444 탭문자 4 5 6 탭문자 7890 개행문자



Procedure CsvtoStrGrid(aFile: String; vgrid: TStringGrid);

var

csv : TextFile;

csvLine: String;

vList: TStringList;

iy, icnt, ix: Integer;

begin

for icnt := 0 to vgrid.ColCount-1 do

vgrid.Cols[icnt].Clear;



vList := TStringList.Create;

AssignFile(csv, aFile);

Reset(csv);

iy := 0;

ix := 0;

while not eof(csv) do Begin

Readln(csv, csvLine);

//탭아스키코드

csvLine := StringReplace(csvLine, #9, '","', [rfReplaceAll]);

csvLine := '"' + csvLine;

if csvLine[Length(csvLine)] <> '"' Then csvLine := csvLine + '"';

vList.CommaText := csvLine;

if (vLIst.Count+1) > ix Then ix := vLIst.Count+1;

for icnt := 0 to vLIst.Count - 1 do

vgrid.Cells[icnt+1, iy] := vLIst.Strings[icnt];

inc(iy);

end;

CloseFile(csv);

vList.Free;

vgrid.RowCount := iy;

vgrid.ColCount := ix;

End;





김민경 wrote:

> 파일의 string값들을 읽어서 stringgrid에 넣어야 합니다.

> 구분자는 tab으로 이루어져 있는데..

> 제가 궁금한 사항은..

> 코딩상에서 tab 구분자를 어떤식으로 읽어야 하는가 입니다.

> 시간이 조금 급하오니.. 많은 답변 부탁드립니다.

> 그리고 메일로도 .. 부탁합니다.

> 그럼 이만..