Форум: "Начинающим";
Текущий архив: 2011.01.02;
Скачать: [xml.tar.bz2];
Вниззапись в 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;
...
Воообщем как то так
← →
Плохиш © (2010-10-09 11:12) [6]
> 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;
...
Таким образом файл является типизированным и содержит строки из Мемо.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.01.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.003 c