VPF::Вопрос про проход по символам - Форум программистов

Андреy

Дата 10.12.2008, 14:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день.
Есть строка данных, разделяемых символом перехода на новую строку.
Ниже код, забирающий элементы строки (до символа перехода). У меня какой-то мусор записывается (то есть не мусор, а нечитаемый рез-т)

Код


var
  sEvents: PChar;
...
sEvents := PChar(pEvents.LatestEvents);   // pEvents.LatestEvents - это WideString
i := Low(FCache.LatestEvent);
while (i <= High(FCache.LatestEvent)) do
begin
        while (sEvents^ <> #13) do         // символ перехода на новую строку - это #13 или #10?
          Inc(sEvents);

        FCache.LatestEvent[i] := sEvents;  // записывается непонятное что-то
        Inc(sEvents);
        inc(i);
end;

sEvents := PChar(pEvents.LatestAlarms);
i := Low(FCache.LatestAlarm);
while (i <= High(FCache.LatestAlarm)) do
begin
        while (sEvents^ <> #10) do
          Inc(sEvents);

        FCache.LatestAlarm[i] := sEvents;
        Inc(sEvents);
        inc(i);
end;

Я могу сделать то же с использованием string и функций AnsiPos, AnsiLeftStr и др., но лучше с использованием PChar. Подскажите, что у меня не так здесь, пожалуйста

Rrader

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

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Сделайте вместо PChar PWideChar. У вас с текущим приведением почти вся строка отсекается.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  WS: WideString;
  P: PWideChar;
begin
  WS := 'WideString';
  P := PWideChar(WS);
  ShowMessage(P);
end;

Добавлено через 2 минуты и 4 секунды
Либо так:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  WS: WideString;
  P: PChar;
begin
  WS := 'WideString';
  P := PChar(AnsiString(WS));
  ShowMessage(P);
end;

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

Let's do this quickly!
Rest in peace, Vit!

MetalFan

Дата 11.12.2008, 13:35 (ссылка)

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

Загрузка ...

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

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

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

наверное пора включить в правила задавания вопросов обязательное указание версии делфи. или хотябы д2009 или старые версии)

Цитата(Андреy @ 10.12.2008, 14:27

)

i := Low(FCache.LatestEvent);
while (i <= High(FCache.LatestEvent)) do

а разве так можно со строкой работать?

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

There are always someone smarter than you...

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