запись в Record из memo

← →
Иван (2010-10-06 11:02) [0]

Есть типизированный файл в который будут записываться данные из компонента Memo (какой длины будет в нем текст не известно). переменную в Record описал типом string[255], без указания длины не разрешает, но потом оказалось что в memo - Tstring, а в Record - char. Как поступить в этом случае?

← →
Сергей М. © (2010-10-06 11:11) [1]

> какой длины будет в нем текст не известно

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

← →
Плохиш © (2010-10-06 11:13) [2]

> оказалось что в memo - Tstring, а в Record - char. Как поступить
> в этом случае?

Прочитать справку, для начала.

← →
KSergey © (2010-10-08 11:42) [3]

> Иван (06.10.10 11:02)
> а в Record - char

Не понял, где char?

← →
Плохиш © (2010-10-08 13:35) [4]

> KSergey © (08.10.10 11:42) [3]

Он мемо.стрингс пытается в свой рекорд.стринг засунуть ;-)

← →
v_a_belousov (2010-10-08 21:28) [5]

> Есть типизированный файл в который будут записываться данные
> из компонента Memo (какой длины будет в нем текст не известно).
> переменную в Record описал типом string[255], без указания
> длины не разрешает, но потом оказалось что в memo - Tstring,
> а в Record - char. Как поступить в этом случае?

Создай запись следующего вида

type
TMyRecord = record
Stroki: array of string[255];
end;

var
MyRecord: TMyRecord;

И пиши в неё строки из мемо

...
SetLength(MyRecord.Stroki, Memo1.Lines.Count);
for i:=0 to Memo1.Lines.Count-1 do
begin
MyRecord.Stroki[i] := Memo1.Lines.Strings[i];
end;
...

Но по мне проще без записи...

var
Stroki: array of string[255];

...
SetLength(Stroki, Memo1.Lines.Count);
for i:=0 to Memo1.Lines.Count-1 do
begin
Stroki[i] := Memo1.Lines.Strings[i];
end;
...

Воообщем как то так

> v_a_belousov (08.10.10 21:28) [5]

> type
> TMyRecord = record
> Stroki: array of string[255];
> end;

Типа, фраза про типизированные файлы вами совершенно проигнорирована?

← →
v_a_belousov (2010-10-09 11:45) [7]

> Типа, фраза про типизированные файлы вами совершенно проигнорирована?

Да) потому что скорее всего человек не понимает разницу между типизированными и не типизированными файлами... да и судя по вопросу человек не знает как перенести строки из Memo в запись. Вот я и показал. Но если уж на то пошло, то:

type
TMyRecord = record
Stroka: string[255];
end;

var F: File of TMyRecord; - это типизированный файл

а запись

...
var MyRecords: array of TMyRecord;
...
SetLength(MyRecords, Memo1.Lines.Count);
for i:=0 to Memo1.Lines.Count-1 do
begin
MyRecords[i].Stroka := Memo1.Lines.Strings[i];
end;
...

Таким образом файл является типизированным и содержит строки из Мемо.

запись в Record из memo Найти похожие ветки