VPF::Сумирование строк - Форум программистов

dedushka191

Дата 4.6.2008, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

Доброго времени суток!
У меня возникла проблемка-я реализую матричный метод плана распредиления нагрузки на сеть(в stringgrid)-проблема в том что мне нужно просумировать две строки:первая-М12(1и2-это коордираты),а вторая-М23+М34\М25+М54!При этом вторая строка должна распознаваться как две подстроки,чтобы в результате сумирования получалось=М12+М23+М34\М12+М25+М54!Пробовал через StringList но у меня не получилось!Подскажите пожалуйста!

Akeem

Дата 4.6.2008, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 381
Регистрация: 14.7.2006
Где: Киев/Украина

Репутация: нет
Всего: 3

В смысле просумировать строки? Может тебе нужно строки перевести в целые числа а потом их просумировать?

--------------------

Мир огромен и мы только муравьи в нём! (С) formicha

dedushka191

Дата 4.6.2008, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

Просто там не числа,а строки((string) и значения на подобе М12+М23\М23+М34)),нужно както разделить их по разделителю "\"!

THandle

Дата 5.6.2008, 07:35 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Не знаю. Правильно ли я понял, но вот:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1, s2 : string;
  p : integer;
begin
  s := 'M25M15/M54M16';
  p := pos('/', s);
  s1 := Copy(s, 1, p - 1);
  s2 := Copy(s, p + 1 , length(s) - p + 1);
  ShowMessage(s1);
  ShowMessage(s2);
end;

Это? Или опиши что с ними хоть должно делаться. Не совсем понятно честно говоря.

morpheyushka

Дата 5.6.2008, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Summa1, Summa2 : integer;
begin
 Summa1 := StrToInt(StringGrid1.Cells[1, 2]) + StrToInt(StringGrid1.Cells[2, 3]);
 Summa2 := StrToInt(StringGrid1.Cells[2, 3]) + StrToInt(StringGrid1.Cells[3, 4]);
 StringGrid1.Cells[n, m] := IntToStr(Summa1) + '\' + IntToStr(Summa2);
end;

где n, m - координаты ячейки, куда нужно вывести smile

--------------------

Спасибо делается вот так!!!

dedushka191

Дата 5.6.2008, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

Цитата(THandle @ 5.6.2008, 07:35)

Не знаю. Правильно ли я понял, но вот:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1, s2 : string;
  p : integer;
begin
  s := 'M25M15/M54M16';
  p := pos('/', s);
  s1 := Copy(s, 1, p - 1);
  s2 := Copy(s, p + 1 , length(s) - p + 1);
  ShowMessage(s1);
  ShowMessage(s2);
end;

Это? Или опиши что с ними хоть должно делаться. Не совсем понятно честно говоря.

Єто то что нужно!Благодаря функции pos-зделалось как надо!!!!Огромное спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »