Отделение данных

[Регинка-малинка]

Здравствуйте,есть небольшая проблемка с бд access. столбец содержить "непростые" записи, то есть допустим столбец "сумма" и первое его поле содержит данные "5403 56666"- то есть сразу две суммы. подскажите пожалуйста как их отделить друг от друга не меняя саму базу. это мне нужно для того чтобы занести общую сумму "сумм" =)) в отчет.

[_SERGEYX_]

Ух, ну и база у тебя... Писала бы все данные в одно поле :=))
Строку можно разбить по разделителям, например, так

function Tokenize(Str: WideString; Delimiter: string): TStringList;
var
  tmpStrList: TStringList;
  tmpString, tmpVal: WideString;
  DelimPos: LongInt;
begin
  tmpStrList := TStringList.Create;
  TmpString := Str;
  DelimPos := 1;
  while DelimPos > 0 do
  begin
    DelimPos := LastDelimiter(Delimiter, TmpString);
    tmpVal := Copy(TmpString, DelimPos + 1, Length(TmpString));
    if tmpVal <> '' then
      tmpStrList.Add(UpperCase(tmpVal));
    Delete(TmpString, DelimPos, Length(TmpString));
  end;
  Tokenize := tmpStrList;
end;

где Str - разбиваемая строка, Delimiter - разделитель.
Использование

var sl:TStringList;
begin
  sl:=TStringList.Create;
  sl:= Tokenize('5403 56666 458744 32544 25487',' ');
  ShowMessage(sl.Text);
  sl.Free;
end;

... но мне очень интересно как ты по строковому полю "сумму сумм" извлекать будешь. Только бестолковым циклом...

Если там всего две суммы можно так
Первое число

 s:= '12345 67890';
  ShowMessage(Copy(s,0,Pos(' ',s)));

Второе число

 s:= '12345 67890';
  ShowMessage(Copy(s,Pos(' ',s)+1,Length(s)));

[Регинка-малинка]

спасибо большое! но я думаю ты меня немного не так понял ( стобец "сумма" имеет текстовый тип данных, в одной записи допустим содержит просто "456", в другой "756 456", а некоторые записи просто пустые...
так вот,я начала делать отчет в fast report, там мне нужно было найти сумму этих всех чисел...но так как тип данных текстовый да и еще содержит 2 значения или пустые строки, он просто не считает сумму...

[_SERGEYX_]

Я бы сделал калькулируемое числовое поле и конвертировал в него нужные данные из строкового поля. И подключил это поле в Fast Report.

[Регинка-малинка]

вот с этим как раз у меня проблемы. свои поля в отчет я заношу через запрос
sql_khp.SQL.Text:= ' Select мои поля из таблицы
и так далее
///////////////////
Скажи плиз как это поле вставить в этот запрос если его нет в таблице? или если я допустим пропишу его в запросе, то при открытии fast report это самое поле будет находится с списке всех полей?

[Dimasw]

Если у тебя компонент TQuery, то через правую кнопку мыши зайди в Fields Editor Там и добавишь нужное тебе поле.

[_SERGEYX_]

ага. А в событии OnCalcFields напиши

if TableSumma.Text<>'' then
try
TableCalcSumma.Value:= StrToFloat(TableSumma.Text);
except
TableCalcSumma.Value:= 0 //или вытащи ту часть текста, которая нужна
end;

PS.названия таблицы и полей написал произвольно