var s1 :string; i2,i3:integer; 有一text file aaa 1 2 我想用 read (file1,s1,i2,i3); 讀入 但都不行 請教要如何寫呢 謝謝了

shangju 您好：    Pascal 讀入字串時，會依其宣告的長度讀完同一列中的那麼多字元，除非遇到換行或檔案結束。 所以，如果您的資料前面是字串而後是數值的話，有可能會被字串多讀了，使得後面的數值就讀不到資料了。 底下程式碼，請參考修改，也可以看一下Delphi關於Read(.)的線上說明。     

procedure TForm1.Button1Click(Sender: TObject);
var
   file1 : TEXTFILE;
   s1    : string[4]; // 注意其長度
   i2,i3 : integer;
begin
  AssignFile(file1, 'c:/data.txt'); { File selected in dialog }
  Reset(file1);
  Readln(file1, s1, i2, i3);      ShowMessage(s1);           // showing data
  ShowMessage(IntToStr(i3));      CloseFile(file1);
end;    {===== data.txt:
aaaa 1 2
}

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

謝謝 richtop 前輩 的回答 但 我第一個字串的長度 並不固定 請問有解嗎 謝謝

shangju 您好： 1.如果資料檔格式可以變更的話，可將字串與數值分存兩行，例如： aaaa 1 2 2.假使資料檔格式是固定的，那可以將整列資料先讀入，再去拆解被空格分開的資料，接著放進適當的變數裡。站上有許多這樣的討論可以參考。 RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####