請各位高手 
我有一個 TXT 檔 裡面 如下
X0.01 Z-0.00005
X0.02 Z-0.00020
X0.03 Z-0.00045
X0.04 Z-0.00080
X0.05 Z-0.00125
X0.06 Z-0.00180
X0.07 Z-0.00245
X0.08 Z-0.00320
X0.09 Z-0.00405
X0.1 Z-0.00500
請問我要怎作才可以
將 X跟Z數值分別 擺到 不同 Edit中
一個擺x的數值 一個擺y數值

謝謝

===================引 用 zxcvb8057 文 章===================
請各位高手
我有一個 TXT 檔 裡面 如下
X0.01 Z-0.00005
X0.02 Z-0.00020
X0.03 Z-0.00045
X0.04 Z-0.00080
X0.05 Z-0.00125
X0.06 Z-0.00180
X0.07 Z-0.00245
X0.08 Z-0.00320
X0.09 Z-0.00405
X0.1 Z-0.00500
請問我要怎作才可以
將 X跟Z數值分別 擺到 不同 Edit中
一個擺x的數值 一個擺y數值

謝謝

恩 我會叫出 擺放到 ListBox1中 但是就不知道 怎使用 讓他 到 EDIT中

請翻書、爬文
Pos和Copy已算是很基本的東西了...

===================引 用 zxcvb8057 文 章===================
恩 我會叫出 擺放到 ListBox1中 但是就不知道 怎使用 讓他 到 EDIT中

我是使用這方式 可以達到我想要的 謝謝了
float a;
String S =Edit1->Text;
Edit7->Text = S.SubString(2,5);
Edit8->Text = S.SubString(9,18);

請問一下 如果 TXT檔案 要排列 是要存檔就先排整齊嗎?
因為使用我這方式呼叫檔案 如果沒有都對齊 就會呼叫錯誤
例如 這地方就會出現 bug

X0.97 Z-0.0047045
X0.98 Z-0.0048020
X0.99 Z-0.0049005 換下一行會出現錯誤
X1 Z-0.0050000
X1.01 Z-0.0051005

編輯記錄

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
L,M: TStringList;
begin
if not FileExists('D:\TEST.TXT') then EXIT;
M := TStringList.Create;
L := TStringList.Create;
try
M.Delimiter := #$20;
L.LoadFromFile('D:\TEST.TXT');
for I := 0 to L.Count-1 do
begin
M.DelimitedText := L[I];
if M.Count=2 then
begin
ListBox1.Items.Add(Copy(M[0],2,Length(M[0])));
ListBox2.Items.Add(Copy(M[1],3,Length(M[1])));
end;
end;
finally
FreeAndNil(L);
FreeAndNil(M);
end;
end;
[/code]

^_^

編輯記錄

[code cpp]
//手邊沒有BCB,手寫程式,僅供參考
if (!FileExists("D:\\TEST.TXT") return;
TStringList *M = new TStringList();
TStringList *L = new TStringList();
try{
M->Delimiter := (Char)0x20;
L->LoadFromFile("D:\\TEST.TXT");
for(int i=0; iCount; i ){
M->DelimitedText := L[I];
if(M->Count==2){
ListBox1.Items.Add(M[0].SubString(2,M[0].Length));
ListBox2.Items.Add(M[1].SubString(3,M[1].Length));
}
}
finally{
delete L;
delete M;
}
[/code]