[bezzzare]

че то круто больно тут))
можешь объяснить плз?)

я тоже сделал)) вот так вот)

Код:

procedure TForm1.open1Click(Sender: TObject);
var i:integer;
begin
   t:=TStringList.Create;
   with OpenDialog1, Memo1 do
      if Execute then
         memo1.Lines.LoadFromFile(FileName);

         for i:=1 to 5 do
         begin

         t.text := stringReplace(memo1.Lines[i-1], ' ', #13#10,[rfReplaceAll]);
         mass[i].nomer:=strtoint(t[0]);
         mass[i].name :=t[1];
         end;
end;

Админ: Пользуемя тегами, иначе последуют санкции!