Чтение из файла

[Arkuz]

Нужно считывать из файла несколько строк и некоторые символы из строки...
примерно так:
5 6 7
3 8 12
3 5 6
мне нужно в цикле пробежать от 1 до последней строки и записать в переменные каждое из чисел, отделённые пробелом друг от друга.

в результате
1 шаг a=5 b=6 c=7
2 шаг a=3 b=8 c=12
3 шаг a=3 b=5 c=6
ну и так далее, если есть ещё строки...

Помогите реализовать это...

[eoln]

var
  t: textfile;
  a, b, c: integer;
begin
  assignfile(t, '0.txt');
  reset(t);
  while not eof(t) do
  begin
    readln(t, a, b, c);//читаем
    listbox1.items.add(inttostr(a) + ' ' +
    inttostr(b) + ' ' + inttostr(c))//куда-нибудь помещаем
  end;
  closefile(t);
end;

[Alter]

Простой пример(для большего количества записей используйте цикл):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var F :TextFile;
begin
 AssignFile(F, ExtractFilePath(ParamStr(0))+'~0.txt');
  {$I-}
 ReWrite(F);
  {$I+}
 WriteLn(F, 5, ' ', 6, ' ', 10);
 CloseFile(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
var F :TextFile;
    a,b,c :Integer;
begin
 AssignFile(F, ExtractFilePath(ParamStr(0))+'~0.txt');
  {$I-}
 Reset(F);
  {$I+}
 ReadLn(F, a, b, c);
  Edit1.Text := Format('a=%d; b=%d; c=%d.', [a, b, c]);
 CloseFile(F);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if FileExists(ExtractFilePath(ParamStr(0))+'~0.txt') then
 DeleteFile(ExtractFilePath(ParamStr(0))+'~0.txt');
end;

end.

[Arkuz]

Спасибо, очень помогли...

[Arkuz]

Подскажите как сделать, чтобыбыло вот так:
Если встречается *rule, то в a,b,c присваиваются 1 2 3
Если встречается *input, то в d присваиваются 6
Если встречается *output, то в e присваиваются 7
типа файл конфигурации...
---------
*rule
1 2 3
*input
6
*output
7
---------
и как например читать определённую строку в файле... Как нибудь строки индексуются?

[Arkuz]

нужно использовать возможность, что в *rule может быть несколько записей, их по очереди нужно все перенести в переменные...

---------
*rule
1 2 3
4 5 6
7 8 9
*input
6
*output
7
---------
вот так например

[Arkuz]

Я попробовал сделать, но почему-то считывает каждую 2 строку с числами
1 2 3
3 2 1
2 5 8
9 4 7
5 5 5
4 6 8

ничего придумать не могу
исходник прилепил

[Arkuz]

А нет случайно решения, которое реализует, то что я сказал более просто...
В делфи никак нельзя сделать файл конфигурации... Это не поддерживается средствами делфи?

[Alter]

Сообщение от Arkuz

В делфи никак нельзя сделать файл конфигурации... Это не поддерживается средствами делфи?

Можно, например "INI файлы", "Реестр", "RECORD файлы", и т.д.

[Arkuz]

Сообщение от Alter

Можно, например "INI файлы", "Реестр", "RECORD файлы", и т.д.

А из ини файлов проще читать данные?