Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

запись в Record из memo [D7]

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

v_a_belousov (2010-10-09 11:45:00) [1]

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

Да) потому что скорее всего человек не понимает разницу между типизированными и не типизированными файлами... да и судя по вопросу человек не знает как перенести строки из 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;
...

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

Плохиш (2010-10-09 11:12:00) [2]

> v_a_belousov (08.10.10 21:28) [5]

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

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

v_a_belousov (2010-10-08 21:28:00) [3]

> Есть типизированный файл в который будут записываться данные
> из компонента 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;
...

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

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

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

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

KSergey (2010-10-08 11:42:00) [5]
> Иван (06.10.10 11:02)
> а в Record - char

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

Плохиш (2010-10-06 11:13:00) [6]

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

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

Сергей М. (2010-10-06 11:11:00) [7]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »