[Abikutin]

В таком смысле.
Есть текстовый файл. В каждой строчке есть
Фамилия, Название, Год

Ну и есть переменные
FamIO:=Фамилия
NAzv:=Название
Year:= Год

Как это сделать?

[Alegun]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Button1Click(Sender: TObject); var  sl: TStrings;  FamIO, NAzv, Year, s: string;  i {, indx} : integer; begin  sl:= TStringList.Create;  sl.LoadFromFile('filename.txt');   // for indx:= 0 to sl.Count-1 do //  begin      s:= sl[ 0 {indx}];      i:= Pos(',',s);      FamIO:= Copy(s,1,i-1);      Delete(s,1,i);      i:= Pos(',',s);      NAzv:= Copy(s,1,i-1);      Delete(s,1,i);      Year:= Copy(s,1,Length(s)); // end;    sl.Free; end;

[Страдалецъ]

Ну уж тогда все и делайте через StringList, зачем только половину?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Var   FileData: TStringList;   DataRec: TStringList;   i: Integer; begin  FileData := TStringList.Create;  FileData.LoadFromFile('D:\2\test.txt');  DataRec := TStringList.Create;  for i := 0 to FileData.Count - 1  do begin     DataRec.CommaText := FileData.Strings[i];     FamIO := DataRec.Strings[0];     NAzv := DataRec.Strings[1];     Year := DataRec.Strings[2];     end;  DataRec.Free;  FileData.Free; end;