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

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

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

Как перевисти текст из поля Memo в обычную строку? [D7, Paradox]

Developerr © (2003-11-20 11:42:00)

Подскажите, пожалуйста, как сделать, чтобы из поля Memo можно было выводить текст в F1Book (Formula One). Я пробовал так:
F1Book.TextRC[1,1]:=Table1["Name"];
где поле Name типа Memo.
В результате получается ерунда. Текст выводится в нечитабельном виде. Знаки, название шрифта и т.д.
Пробовал и через ShowMessage. А именно
ShowMessage(Table1["Name"]);или так ShowMessage(Table1.FieldByName("Name").AsString);
То же самое.
Я так понимаю, что в поле Memo текст находится в каком-то своем формате. А вот как из этого формата можно перевести в обычный текст?

Спасибо.

Developerr (2003-11-20 15:34:00) [1]

Понял, спасибо. В этом и была проблема.

Zacho (2003-11-20 14:09:00) [2]

> Developerr © (20.11.03 14:04) [9]

А зачем название отдела в rtf ? Чем plain text не устраивает ?

> Короче, мне нужно перевести в обычный текст и все.

Это правильно. И пусть оно будет хоть 460 символов, хоть еще больше ...

Developerr (2003-11-20 14:04:00) [3]

Да зачем мне в ворде? У меня в штатном рассписании все работники разбиты по отделам и перед каждым отделом пишется его название. Когда были маленькие названия я вообще не пользовался Memo.
Короче, мне нужно перевести в обычный текст и все.

Reindeer Moss Eater (2003-11-20 14:01:00) [4]

> Если да, то так не толучается.
> Выдается такой текст:
>
> {\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil
> MS Sans Serif;}}
> \viewkind4\uc1\pard\f0\fs16\par
> }

ну блеск!
а что по твоему должно выдавать?

Zacho (2003-11-20 13:48:00) [5]

> Developerr © (20.11.03 13:46) [6]

И все-таки, какое отношение имеет rtf к F1 ? Ну работает F1 с rtf и все тут. Выводи в TRichEdit или в ворде. Или храни эти строки в обычном тексте, а не в rtf.

Developerr (2003-11-20 13:46:00) [6]

> Reindeer Moss Eater ©

Я спросил как это писать

> ЭкземплярПоля.AsString

> Так?
> Table1.FieldByName("Name").AsString
>
> Если да, то так не толучается.
> Выдается такой текст:
>
> {\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil
> MS Sans Serif;}}
> \viewkind4\uc1\pard\f0\fs16\par
> }

> Zacho ©

> А зачем в Формулу 1 пихать rtf ? Это же не Word.

Я делаю штатное рассписание. И так сложилось, что у нас в отделе кадров сидят люди без мозгов и отделы поназывали так, что одно из названий получилось = 460 символов. Вот я и парюсь с этим названием.
А выводить штатное рассписание очень удобно в Formula One.

Такие дела.

Zacho (2003-11-20 13:29:00) [7]

> Developerr © (20.11.03 13:23) [3]

А зачем в Формулу 1 пихать rtf ? Это же не Word.

Reindeer Moss Eater (2003-11-20 13:24:00) [8]

И что именно не получается?

Developerr (2003-11-20 13:23:00) [9]

Так?
Table1.FieldByName("Name").AsString

Если да, то так не толучается.
Выдается такой текст:

{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs16\par
}
Спасибо.

Reindeer Moss Eater (2003-11-20 13:16:00) [10]

ЭкземплярПоля.AsString

Developerr (2003-11-20 13:13:00) [11]

Никто не знает, как перевести или просто лень отвечать???

Наверх

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