Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Вниз

Предварительная обработка строк перед передачей в Format   Найти похожие ветки 

 
AMogil ©   (2004-04-14 16:16) [0]

Здравсвуйте.

Необходимо предварительно обрабатывать строки передаваемые в функцию формат. Делаю так:

function TLibDataModule.FormatSQL(const S: string; const Arg: array of const): string;
var
 i, ParamsCount: Integer;
 SS: string;
 A: array of TVarRec;
begin
 ParamsCount := 0;
 SetLength(A, 0);
 for i := 1 to Length(S) - 1 do
   if (S[i] = "%") and (S[i + 1] <> "%") then
   begin
     Inc(ParamsCount);
     SetLength(A, Length(A) + 1);
     if LowerCase(S[i + 1]) = "s" then
     begin
// Собственно обработка строки
       SS := LibraryApplication.AddTwinQuote(string(Arg[ParamsCount - 1].VAnsiString));
       A[Length(A) - 1].VPChar := PChar(SS);
       A[Length(A) - 1].VType := vtPChar;
     end
     else
     begin
       A[Length(A) - 1] := Arg[ParamsCount - 1];
       A[Length(A) - 1].VType := Arg[ParamsCount - 1].VType;
     end;
   end;
 Result := Format(S, A);
end;

Но резултат получается искаженным. Может быть кто-нибуль сталкивался и значет в чем проблема?


 
icWasya ©   (2004-04-14 17:17) [1]

скорее всего тут
    A[Length(A) - 1].VPChar := PChar(SS);
при таком присваивании у строки SS не изменяется счётчик ссылок и при следующем операторе
 SS:=чего-то там
то, на что указывал VPChar становится недействительным
Возможное решение -
...
var
SSList:Array of String;
.....
SS:=  LibraryApplication.AddTwinQuote(string(Arg[ParamsCount - 1].VAnsiString));
SetLength(SSList,Length(SSList)+1);
SSList[High(SSList)]:=SS;

A[Length(A) - 1].VPChar := PChar(SS);
....



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.036 c
14-1081488459
Паниковский
2004-04-09 09:27
2004.05.02
Эргономика


7-1078444967
yogi
2004-03-05 03:02
2004.05.02
Инсталлировать службу


11-1045034380
Un-man
2003-02-12 10:19
2004.05.02
OnIdle в KOL


1-1081843166
IraiZor
2004-04-13 11:59
2004.05.02
Про переменную типа TStrings


1-1082103917
RH
2004-04-16 12:25
2004.05.02
Содержимое каталога





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский