Главная страница
    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.44 MB
Время: 0.033 c
6-1078947690
3APA3A
2004-03-10 22:41
2004.05.02
Какими компонентами можно передать Stream


1-1082284558
XmPL
2004-04-18 14:35
2004.05.02
системы счисления


14-1081342930
able
2004-04-07 17:02
2004.05.02
Забыл пароль в программе :(


6-1078175716
ser_ega
2004-03-02 00:15
2004.05.02
Explorer


1-1082095259
Dentist
2004-04-16 10:00
2004.05.02
ICO to BMP





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский