Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вопрос про проход по символам

Автор: Андреy 10.12.2008, 14:27

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

Код


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

Сделайте вместо 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;

Автор: MetalFan 11.12.2008, 13:35

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

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

)

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

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