- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
function THiPathCDRData.ToSQL: string;
begin
Result := 'Call ImportCall("' + FormatDateTime('YYYY-MM-DD hh:mm:ss', self.CallDate) +
'", ' + #39 + stringreplace(self.InternalCallNumber, ' ', '', [rfReplaceAll]) + #39 + ', ' + #39 +
stringreplace(self.ExternalCallNumber, ' ', '', [rfReplaceAll]) + #39 + ', ' +
IntToStr(self.duration) + ', ' + #39 + GetEnumName(TypeInfo(TCallDirection),
integer(self.CallDirection)) + #39 + ', ' + IntToStr(trunk) + ');';
end;
Follow us!
Сходу въебал плюс. В этом коде "прекрасно" всё.
В делфи все еще нет нормальных эскейпов
например:
Total Commander
FL Studio
KMPlayer
не знал что он на дельфях
Ну, к магии-то Амаяку явно не привыкать...
Тов. Амаяк, Гисслер не на Ваши ли фокусы насмотрелся?
я туда зашел и там мне сразу реклама в рыло, я даже не успел увидеть какой ты там хеллоу ворлд на дельфи написал
зы:
>>Мы ручаемся за безопасность наших программ и заявляем, чт
"Мы" это ты мама?
блин, за 10 баксов в год можно нормальный хостинг сделать
развел тут чичи-гага
Во-первых, можно сэкономить на плюсиках, вспомнив, что коды с решёткой можно лепить вплотную друг к другу и к константам. Т. е. вместо можно написать
Во-вторых, #39 - это же #$27, т. е. код апострофа. Так? Апостроф можно вставлять в строку, только его нужно удваивать. Приведённый фрагмент можно записать так: Страшновато, а что поделать.
Наконец, есть же функция Format как раз для сборки таких строк. Да, будет работать медленнее, чем тупая склейка строк, но по сравнению с затратами на sql-запрос это мелочи.