txt file 如下

A001#当大多数80后还处于懵懂和幻想阶段的时候#112臺北市公館路60號5樓#02-23241156#北區
A002#緯士資訊公司#806高雄市大安路一段22號#07-7644321#南區
A003#電通科技公司#100新竹市中山北路二段115號11樓之#302-23445731#北區

程式碼如下

procedure TForm1.BitBtn6Click(Sender: TObject);

var F : textFile ;
str : string;

begin

AssignFile(F,datafile);
Reset(F);

while not EOF(F) do begin

Readln(F,str);

.

.

end;

當程式執行到 Readln(F,str)時, str變數 叫出來看資料就不對, 請問該怎麼做, 教教我吧!

不勝感激

我用的是DBMaker 類似MS SQL , 你是用一個byte一個byte抓的嗎?

程式執行到 reset(f,str)這一行 ,str變數不會變亂碼嗎?

我用的是DBMaker,沒聽過吧, 是台灣的產品,類似 MS SQL, DELPHI 是不支援 Unicode , 你是如何讀Unicode txt 檔?

請幫我試試以下之程式 .程式執行完後, stringGrid的資料已是亂碼

不好意思,麻煩了.

txt file(編碼是Unicode)

A001#当大多数80后还处于懵懂和幻想阶段的时候#112臺北市公館路60號5樓#02-23241156#北區
A002#幻想阶段的时候#806高雄市大安路一段22號#07-7644321#南區
A003#当大多数80后还处于#100新竹市中山北路二段115號11樓之#302-23445731#北區

Const datafile : String = 'customer3.txt';

procedure TForm1.BitBtn6Click(Sender: TObject);
var
i, count : Integer;
F : textFile ;
str : string;
ans : array[1..5] of string;
row : Integer;
begin
StringGrid1.RowCount := 2;
StringGrid1.Cells[0,0] := '編號';
StringGrid1.ColWidths[0] := 50;
StringGrid1.Cells[1,0] := '公司名稱';
StringGrid1.ColWidths[1] := 100;
StringGrid1.Cells[2,0] := '地址';
StringGrid1.ColWidths[2] := 250;
StringGrid1.Cells[3,0] := '電話';
StringGrid1.ColWidths[3] := 100;
StringGrid1.Cells[4,0] := '地區';
StringGrid1.ColWidths[0] := 40;
//
if FileExists(datafile) then
begin
AssignFile(F,datafile);
Reset(F);
row := 1;
try
while not EOF(F) do
begin
Readln(F,str);

count := 1;
for i := 1 to 5 do ans[i] := '';
for i := 1 to length(str) do
if str[i] <> '#' then
ans[count] := ans[count] str[i]
else
count := count 1 ;
StringGrid1.Cells[0,row] := ans[1];
StringGrid1.Cells[1,row] := ans[2];
StringGrid1.Cells[2,row] := ans[3];
StringGrid1.Cells[3,row] := ans[4];
StringGrid1.Cells[4,row] := ans[5];
Inc(row);
StringGrid1.RowCount := row;
end;
finally
CloseFile(F);
end;
end;
end;