[bezzzare]

Доброго дня.

подскажите можно ли как-то взять данные из мемо и поместить в массив записей?
причем каждая строка - запись(данные напр через пробел)

[DenNik]

а для чего в массив записей?
чем StringList не устраивает?
и каков формат твоей записи?

[bezzzare]

вообщем я изучаю паскаль(делфи) и для примера делаю телефонный справочник..

хочу чтоб сами данные справочника были в файле..
а програмка будет смотреть редактировать искать и сохранять..

вот..
хотел данные в массив записей определять чтоб с ними работать..

а что это за StringList???
объясните плз)

[bezzzare]

ну я хотел чтоб програмка как-то различала пробелы))
напр
r=record
name: string
nomer: integer


mass:array of r
бла бла..

такая строка

макс 123 записывал бы как mass.name = макс и mass.nomer = 123.....

))

[bezzzare]

непонятно написал)

напр если бы я ввел строку
макс 123

я бы хотел чтоб она считалась как:
в нэйм - макс а в намбер - 123


можно это как-то реализовать?

[DenNik]

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

а что это за StringList???
объясните плз)

нуу! сначала нужно хотя бы основы языка Паскаль изучить
StringList - это список строк.

дальше

Код:

r=record
 name: string
 nomer: integer

если так объявишь, то не сможешь сохранить в файл, поскольку тип string - это указатель на динамическую область памяти, содержащую строку
нужно так: name: string[255] или name: string[100] или name: shortstring

вобщем, нужно изучать базис

[bezzzare]

да мне не синтаксис нужен.

мне принцип нужен

направление)

можно это сделать как я задумал?
или использовать StringList&

какие преимущества?

[DenNik]

Код:

type
  TPerson = packed record
    Name: string[30]; // максимальная длина строки - 30
    Phone: integer;   // только здесь лучше тоже строку использовать
  end;

var
  Form1: TForm1;
  f: file of TPerson;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Person: TPerson;
begin
  AssignFile(f,'c:\Persons.dat');
  Rewrite(f); // создать новый файл (перезаписать) или
  Reset(f);   // если уже есть файл на диске (добавить)
  with Person do
  begin
    Name:= 'Вася Пупкин';
    Phone:= 123456;
  end;
  Write(f,person);
  CloseFile(f);
end;

end.

здесь отсутствует много чего нужного (например, что делать чтобы добавить запись в конец файла), так что осторожно.

[DenNik]

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

причем каждая строка - запись(данные напр через пробел)

как, по-твоему, будет выглядеть такая структура?