Скачать: CL | DM;

Помогите со stringgrid ом   Найти похожие ветки 

← →
vnutr ©   (2011-01-07 20:12) [0]

_кол-1___|___кол-2___|
____1,1___|____2,1_____|
____1,2___|____2,2_____|
____1,3___|____2,3_____|

if (1,2>1,1)and(1,2<2,1) then showmessage("dfgdegf");
if (1,3>1,2)and(1,3<2,2) then showmessage("dfgdegf");

и т.д.

ПОМОГИТЕ ПОЖАЛУЙСТА!!! Как это осуществить?
Я пишу:
procedure TForm1.Button1Click(Sender: TObject);
var
BeginDate, EndDate: Tdatetime;
r: integer;

begin
for r:= 1 to StringGrid1.RowCount do
begin
if (stringgrid1.Cells[0, r]<>"")or(stringgrid1.Cells[1, r]<>"") then
begin
BeginDate:= StrToDate(Stringgrid1.Cells[0, r]);
EndDate:= StrToDate(Stringgrid1.Cells[1, r]);

if (StrToDate(StringGrid1.Cells[0,r+1])>BeginDate)and(StrToDate(StringGrid1.Cells[0,r+1])<EndDate) then
showmessage(StringGrid1.Cells[0,r+1] + " входит в период " + " от "+ DateToStr(BeginDate) + " по " + DateToStr(EndDate));

end;
end;
end;
Всё вроде бы работает, но в конце концов выдаёт ошибку.
ПОМОГИТЕЕЕЕ

---

← →
vnutr ©   (2011-01-07 20:15) [1]

Вот ошибка - Project raised exeption class EConvertError with message """" is not a valid date. Process stopped. Use Step or Run to continue

---

← →
Сергей М. ©   (2011-01-07 20:15) [2]

> в конце концов выдаёт ошибку.


"конец концов" - это RowCount-1, а не RowCount

---

← →
vnutr ©   (2011-01-07 20:20) [3]

Это не помогает. Я уже пробовал(( Пробовал отлавливать конец списка:
if r < StringGrid1.RowCount- 1 then
begin
if  (StrToDate(StringGrid1.Cells[0,r+1])>BeginDate)and(StrToDate(StringGrid1.Cells[0,r+1])<EndDate) then
 showmessage(StringGrid1.Cells[0,r+1] + " входит в период " + " от "+ DateToStr(BeginDate) + " по " + DateToStr(EndDate));
end
else
 ShowMessage("Конец списка");
Все равно безнадежно. Что я не так делаю? Помогите пожалуйста

---

← →
Сергей М. ©   (2011-01-07 20:42) [4]

> Это не помогает


Это другие грабли. Но не менее больно лупцующие по лбу не читающего справку.
А первые грабли - в  DecimalSeparator

---

← →
vnutr ©   (2011-01-07 20:44) [5]

???
А можете разъеснить

---

← →
Сергей М. ©   (2011-01-07 20:48) [6]

> разъеснить


Ну а что тут не есно ?
При конвертации строкового представления числа с п/з в ссамо число с п/з используется именно тот символ-разделитель целой и дробной частей. который на момент конвертации фигурирует в глоб.переменной DecimalSeparator.

---

← →
vnutr ©   (2011-01-07 20:51) [7]

И как мне быть с моей проблемой? Что посоветуете?

---

← →
Советую   (2011-01-07 20:54) [8]

Удалено модератором

---

← →
vnutr ©   (2011-01-07 20:59) [9]

Удалено модератором

---

← →
Сергей М. ©   (2011-01-07 20:59) [10]

Удалено модератором

---

← →
Сергей М. ©   (2011-01-07 21:02) [11]

Удалено модератором

---

← →
vnutr ©   (2011-01-07 21:04) [12]

Удалено модератором

---

← →
12 ©   (2011-01-07 21:07) [13]

Удалено модератором

---

← →
vnutr ©   (2011-01-07 21:07) [14]

Удалено модератором

---

← →
12 ©   (2011-01-07 21:09) [15]

Удалено модератором

---

← →
Сергей М. ©   (2011-01-07 21:09) [16]

Удалено модератором

---

← →
Христосов И.Я.   (2011-01-07 21:11) [17]

Удалено модератором

---

← →
12 ©   (2011-01-07 21:14) [18]

Удалено модератором

---

← →
vnutr ©   (2011-01-07 21:16) [19]

Удалено модератором

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.005 c