Создал свой формат файла. Теперь надо считать строки из него...

[AngelOfDeath]

Вот в целях самообучения решил создать свой текстовый формат файла
Который будет содержать информацию о цвете, размере шрифта
Но немогу сделать запись всех строк из мемо в файл
Вот код записи:

procedure TForm2.N3Click(Sender: TObject);
var
t:TFileStream;
colors:array [0..2] of Byte;
i:Integer;
begin
t:=TFileStream.Create('1.ftr',fmCreate);
t.Seek(0,soFromBeginning);
colors[0]:=GetRValue(FontDialog1.Font.Color);
colors[1]:=GetGValue(FontDialog1.Font.Color);
colors[2]:=GetBValue(FontDialog1.Font.Color);
for I := 0 to 2 do
begin
t.Write(colors[i],3);
end;
t.Seek(50,soFromBeginning);


t.Free;
end;

Вот чтения:

procedure TForm2.N2Click(Sender: TObject);
var
t:TFileStream;
clor: array [0..2] of Byte;
i:Integer;
max:Integer;
begin
t:=TFileStream.Create('1.ftr',fmOpenRead);
t.Seek(0,soFromBeginning);
for I := 0 to 2 do
begin
t.Read(clor[i],3);
end;
FontDialog1.Font.Color:=RGB(clor[0],clor[1],clor[2]);




t.Free;
Memo1.Font.Color:=FontDialog1.Font.Color;
end;

Как мне сделать считывание текста с 50 байта?

Вот исходник:

[rpy3uH]

вроде человек умный.... тебе метод seek для чего?
для перемещения указателя файла используется метод seek первый параметр это число байт, на которое надо сместиться, второй параметр флаги

[Stilet]

Но немогу сделать запись всех строк из мемо в файл

У-у-у БД плачет.
Или INI Фалы что еще лучше

[AngelOfDeath]

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

вроде человек умный.... тебе метод seek для чего?
для перемещения указателя файла используется метод seek первый параметр это число байт, на которое надо сместиться, второй параметр флаги

Это я знаю...

У-у-у БД плачет.
Или INI Фалы что еще лучше

А это к чему?

Ладно переформулирую вопрос:
Что нужно записать

   t.Write(cюда, Sizeof(Сюда));

Чтоб записать строки из мемо1?
t это TfileStream

Нашёл небольшое решение:

t.WriteComponent(Memo1);

t.ReadComponent(Memo1);

Но, там добавляется куча ненужных байт (где-то 60)

[AngelOfDeath]

Ну чтож, спасибо за "ответ"

[mutabor]

Почитай про TFileStream и все вопросы отпадут. Серьезно, это будет лучше чем мы тебе будем пересказывать.

TFileStream позволяет считать любое кол-во байт из любого места. Что еще нужно для своего формата?
Делай метки в нужных местах, если твой формат сложный с разными блоками данных. Например тег в mp3 файле начинается после метки ID3 или TAG.

txt формат простой как три копейки, там одни только данные, никакой структуры, как его можно сделать в своем варианте? Если же он у тебя наподобии INI или XML (с тегами) то почитай про эти форматы, как у людей сделано, и поймешь как тебе лучше сделать.

Кстати с текстовыми форматами будет удобнее работать не через TFileStream а обычными средствами работы с текстовыми файлами.

Как мне сделать считывание текста с 50 байта?

Seek(50,soFromBeginning);
А дальше считывай в буфер (массив чаров или строк с огр. длиной) столько байт, сколько в этих строках. Если кол-во их может меняться сделай на позиции 50 сначала метку сколько байт нужно считать, метка 1, 2 или 4 байта, смотря сколько их там может быть. Вобщем экспериментируй.

[AngelOfDeath]

txt формат простой как три копейки, там одни только данные, никакой структуры, как его можно сделать в своем варианте?

Я хочу в нём сохранять цвет, шрифт и размер
Вобщем буду пытаться...

Во сделал код записи

procedure TForm2.N3Click(Sender: TObject);
var
t:TFileStream;
colors:array [0..2] of Byte;
i:Integer;
str:array of string;
begin
t:=TFileStream.Create('1.ftr',fmCreate);
t.Seek(0,soFromBeginning);
colors[0]:=GetRValue(FontDialog1.Font.Color);
colors[1]:=GetGValue(FontDialog1.Font.Color);
colors[2]:=GetBValue(FontDialog1.Font.Color);
for I := 0 to 2 do
begin
t.Write(colors[i],2);
end;
t.Seek(50,soFromBeginning);
SetLength(str,Memo1.Lines.Count);
for I := 0 to Memo1.Lines.Count-1 do
  begin
    str[i]:=Memo1.Lines[i];
    t.Write(str[i],Length(str[i]));
  end;
t.Free;
end;

Всё записывает