VPF::кодировка и типы данных (Delphi 2009)

stalkerok

Дата 6.12.2008, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 28.12.2007

Репутация: нет
Всего: нет

Типы данных какие они стали?
вместо string теперь использовать PCair?

раньше например

Код


Type
NameGridRec = record
 ncell: String[255];
end;

теперь

Код


Type
NameGridRec = record
 ncell: PChar;
end;

Правильно?

а работа с GridList
что каждый раз переводить в Pchair

а функции перевода inttostr и strtoint остались?

и почемуто всё это затронуло и OpenGL

Вот пример вывода текста

Код


procedure OutText (Litera : PChar);
begin
  glListBase(GLF_START_LIST);
  glCallLists(Length (Litera), GL_UNSIGNED_BYTE, Litera);
end;

соответсвенно выводит какието квадратики

MetalFan

Дата 6.12.2008, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(stalkerok @ 6.12.2008, 18:45

)

Типы данных какие они стали?
вместо string теперь использовать PCair?

что сказал? сам то понял?

Цитата(stalkerok @ 6.12.2008, 18:45

)

Правильно?

неправильно. хоть бы в хелп заглянул

--------------------

There are always someone smarter than you...

stalkerok

Дата 6.12.2008, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 28.12.2007

Репутация: нет
Всего: нет

а можно на примере:
нужен массив из записей типа:

Код


Type
nameRec = record
 id:integer;
 name:string[255];
 x:integer;
 y:integer;
end;

var
ArrName: array of nameRec;

массив будет сохраняться и загружаться из файла и самое главное будет возможность редпктирование его в GriDEdit т.е. до этого всё работало в 2007 как же избавится от квадратиков, обрезания строчек и каракуль?

MetalFan

Дата 7.12.2008, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(stalkerok @ 6.12.2008, 23:55

)

ак же избавится от квадратиков, обрезания строчек и каракуль?

не вижу примеров кода, которые выводят "квадратиков, обрезания строчек и каракуль" на исходных данных...

--------------------

There are always someone smarter than you...

CodeMonkey

Дата 7.12.2008, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Случайно спрашиваете не про Search&Replace по коду String -> AnsiString, Char -> AnsiChar?

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

stalkerok

Дата 9.12.2008, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 28.12.2007

Репутация: нет
Всего: нет

CodeMonkey Нет, всё получилось действительно надо было правильно поставить типы данных,
но я так и не понял если String стал AnsiString то как использовать в записи

Код


Type
NameGridRec = record
 ncell: String[255];
end;

учитывая что массив типа NameGridRec будет сохраняться в файл,

и почему показывается предупреждение
Implicit string cast with potential data loss from 'string' to 'AnsiString'
Implicit string cast from 'AnsiString' to 'string'

Код


var
  f: AnsiString;
begin
f:=Edit1.Text;
Edit1.Text:= f;

неужели надо

Код


f:=AnsiString(Edit1.Text);
Edit1.Text:=String( f );

lukas

Дата 10.12.2008, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

Код


f:=AnsiString(Edit1.Text);

Если я не ошибаюсь, то это лишнее... У меня все без преобразований работает.

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

stalkerok

Дата 10.12.2008, 21:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 28.12.2007

Репутация: нет
Всего: нет

Работает и без преобразований только предупреждение показывает описанное двумя постами выше

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »