Форум: "Начинающим";
Текущий архив: 2011.04.03;
Скачать: [xml.tar.bz2];
ВнизПомогите со 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.04.03;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.003 c