function Format

[Prostaf]

Это часть кода сервера. Данный код чекает все параметры http(get) запроса и выводит значения этих параметров. Помогите с использованием function Format, чтобы значение параметра sum выводилось всегда с десятичным разделителем, т.е не просто 25, а 25.00?
Вот сам запрос http://<URL>:8443/payment_app.cgi?command=check&txn_i d=1234567&account=101&sum=10.45

function GetCheck(account:integer;sum:double;txn_id:integer):string;
var
  i:integer;
  y:integer;
  //Проверка параметра account
begin
  y:=-1;
  for I := 0 to Length(clients) - 1 do
    if clients[i].id=account then
    begin
      y:=i;
      break;
    end;
  if y=-1 then
  Begin
   result:='Client identifier is not found';
End;
end;
//Функция ответа command=check
function answer(Params:TStrings):string;
var
  account:integer;
  sum:double;
  txn_id:integer;
begin
  if(Params.IndexOfName('command')=-1)then
  begin
      answer:='<answer></answer>';
  Exit;
end;
  if((Params.Values['command']<>'pay')and(Params.Values['command']<>'check'))then
  begin
      answer:='<answer>error</answer>';
  Exit;
end;
  //Параметр команды поиска
  if(Params.Values['command']='check')then
  begin
    if(Params.IndexOfName('account')=-1)then
  begin
      answer:='<answer>Client not found</answer>';
  Exit;
  end;
    if(Params.IndexOfName('txn_id')=-1)then
    begin
      answer:='<answer>Incorrect transaction number</answer>';
      Exit;
    end;
    if(Params.IndexOfName('sum')=-1)then
    begin
      answer:='<answer>Incorrect amount</answer>';
      Exit;
    end;
    if(not TryStrToInt(Params.Values['account'], account))then
    begin
      answer:='<answer>Client not found</answer>';
      Exit;
    end;
       if(not TryStrToInt(Params.Values['txn_id'], txn_id))then
    begin
      answer:='<answer>Incorrect transaction number</answer>';
      Exit;
    end;
       if(not TryStrToFloat(Params.Values['sum'], sum))then
    begin
      answer:='<answer>Incorrect amount</answer>';
      Exit;
    end;
    answer:='<answer>'+GetCheck(account,sum,txn_id)+'</answer>';
  end;
end;

[evg_m]

format в Основах Delphi http://www.delphibasics.ru/Format.php

[Prostaf]

Сообщение от evg_m

format в Основах Delphi http://www.delphibasics.ru/Format.php

Читал данный материал, но у меня идет вывод значений параметров запроса в .xml.
Прописывал данную функцию, но ничего не меняется!

[Stilet]

Прописывал данную функцию, но ничего не меняется!

Показывай как прописывал )

[Prostaf]

Сообщение от Stilet

Показывай как прописывал )

Что-то типа такого.

function Format ( Const Formatting : string; Const Data : array of const ) : string;
var
sum:double;
begin
Format('%.2f', [sum]);

[Stilet]

А надо так:

Переменка или выражение := format(...

Это всетки функция.

[Prostaf]

Сообщение от Stilet

А надо так:

Переменка или выражение := format(...

Это всетки функция.

Т.е. у меня параметр sum: double, следовательно должно быть
sum:=Format('%.2f', [sum]); ???

[Prostaf]

Сообщение от Stilet

А надо так:

Переменка или выражение := format(...

Это всетки функция.

Прописал вот так

function Format ( Const Formatting : string; Const Data : array of const ) : string;
var
s:string;
sum:double;
begin
s:=Format('%.2f', [sum]);
end;

Но всеравно значение записывается не 10.00(например), а просто 10.

[phomm]

И получил Stack Overflow при работе программы ?

[Stilet]

format() возвращает строку. Т.е. тебе нужно его запихнуть в выражение, или писать возврат в переменную типа string.

Прописал вот так

Убери немедля эту куйню )
В какое выражение ты хочешь форматирование подставить в своем коде в топе, покажи.