string grid

[toxaxa]

Как иp ячейки stringgrid вывести первые 2 символа в label?
dbEdit1:=(form7.stringgrid2.Cells[1,2]);- так ругается на несоответствие типов

[Пепел Феникса]

bdEdit1.Text:=Copy(form7.stringgrid2.Cells[1,2],1,2);

это если эдит. у лейбла св-во caption

[toxaxa]

Сор описался 2 ночь курсач делаю ниче не сооброжаю((
С первымя 2- мя символами разобрался... следующий вопрос а как можно вывести любые 2 символа , допустим 1 и 3!

[tarakan1983]

bdEdit1.Text:=Copy(form7.stringgrid2.Cells[1,2],1,1)+' и ' Copy(form7.stringgrid2.Cells[1,2],3,1);

так будет "1 и 3"

[toxaxa]

tarakan1983 Большое спасибо!! очень помогло.

При выполнении процедуры выдает ошибку (см прикрепленные файлы)
Есть подозрения на то , что с циклом перемудрил...

procedure budila;
var i,z:integer;
begin
z:=form7.st2.rowcount;
for i:=1 to z do
  getlocaltime(ST);
if (st.wYear=StrToInt(Copy(form7.st2.Cells[1,i],10,1)+Copy(form7.st2.Cells[1,i],9,1)+Copy(form7.st2.Cells[1,i],8,1)+Copy(form7.st2.Cells[1,i],7,1))) and (st.wMonth=StrToInt(Copy(form7.st2.Cells[1,i],5,1)+Copy(form7.st2.Cells[1,i],4,1))) and (st.wDay=strtoint(Copy(form7.st2.Cells[1,i],2,1)+Copy(form7.st2.Cells[1,i],1,1))){присваиваем со стринг грид год месяц число}
then
begin
if(ST.Whour=strtoint(Copy(form7.st2.Cells[2,i],1,1)+Copy(form7.st2.Cells[2,i],2,1)))and (ST.WMinute=strtoint(Copy(form7.st2.Cells[2,i],4,1)+Copy(form7.st2.Cells[2,i],5,1))) and (st.wSecond=strtoint(Copy(form7.st2.Cells[2,i],7,1)+Copy(form7.st2.Cells[2,i],8,1))) then
{Присваиваем со стринг грид часы минуты секунды}
begin
Form5.MediaPlayer1.FileName:=Form5.sFilenameEdit2.FileName;
form5.MediaPlayer1.Open;
form5.MediaPlayer1.Play;
ShowMessage(Form5.smemo1.text);
end;
end;;

end;

[artemavd]

А почему сразу не записали так:

procedure budila;
var i:integer;
begin
for i:=1 to form7.st2.rowcount do
getlocaltime(ST);
if (st.wYear=StrToInt(Copy(form7.st2.C ells[1,i],10,1)+Copy(form7.st2.Cells[1,i],9,1)+Copy(form7.st2.Cells[1,i],8,1)+Copy(form7.st2.Cells[1,i],7,1))) and (st.wMonth=StrToInt(Copy(form7.st2. Cells[1,i],5,1)+Copy(form7.st2.Cells[1,i],4,1))) and (st.wDay=strtoint(Copy(form7.st2.Ce lls[1,i],2,1)+Copy(form7.st2.Cells[1,i],1,1))){присваиваем со стринг грид год месяц число}
then
begin
if(ST.Whour=strtoint(Copy(form7.st2 .Cells[2,i],1,1)+Copy(form7.st2.Cells[2,i],2,1)))and (ST.WMinute=strtoint(Copy(form7.st2 .Cells[2,i],4,1)+Copy(form7.st2.Cells[2,i],5,1))) and (st.wSecond=strtoint(Copy(form7.st2 .Cells[2,i],7,1)+Copy(form7.st2.Cells[2,i],8,1))) then
{Присваиваем со стринг грид часы минуты секунды}
begin
Form5.MediaPlayer1.FileName:=Form5. sFilenameEdit2.FileName;
form5.MediaPlayer1.Open;
form5.MediaPlayer1.Play;
ShowMessage(Form5.smemo1.text);
end;
end

Ошибка означает, что у Вас в таблице пустые значения присутствуют.

[Stilet]

for i:=1 to form7.st2.rowcount do

Не согласен. Можно за пределы вылететь. Не забывай что в Делфи начали с нуля нумеровать:

for i:=1 to form7.st2.rowcount-1 do

что с циклом перемудрил...

Ты не с циклом перемудрил а с условием.
Вот то жуткодлинное однозначно можно упростить на 90%

[toxaxa]

Немного упростил

procedure budila;
var i,z:integer;
begin
z:=form7.st2.rowcount;
{for i:=1 to z do }
i:=1;
  getlocaltime(ST);
if (st.wYear=StrToInt(copy(form7.st2.Cells[1,i],10,1)+Copy(form7.st2.Cells[1,i],9,1)+Copy(form7.st2.Cells[1,i],8,1)+Copy(form7.st2.Cells[1,i],7,1))) and (st.wMonth=StrToInt(Copy(form7.st2.Cells[1,i],5,1)+Copy(form7.st2.Cells[1,i],4,1))) and (st.wday=strtoint(Copy(form7.st2.Cells[1,i],2,1)+Copy(form7.st2.Cells[1,i],1,1)))
then
begin
if(ST.Whour=strtoint(Copy(form7.st2.Cells[2,i],1,1)+Copy(form7.st2.Cells[2,i],2,1)))and (ST.WMinute=strtoint(Copy(form7.st2.Cells[2,i],4,1)+Copy(form7.st2.Cells[2,i],5,1))) and (st.wSecond=strtoint(Copy(form7.st2.Cells[2,i],7,1)+Copy(form7.st2.Cells[2,i],8,1))) then
begin
Form5.MediaPlayer1.FileName:=Form7.st2.cells[5,i];
form5.MediaPlayer1.Open;
form5.MediaPlayer1.Play;
ShowMessage(Form7.st2.cells[3,i]);
end;
end;;

end;
procedure TForm5.Timer2Timer(Sender: TObject);
begin
budila;
end;

Ошибок никаких не выдает, но при наступлении заветного времени , которое мы считали из стринггрида ничего не происходит!

[toxaxa]

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

Немного упростил

procedure budila;
var i,z:integer;
begin
z:=form7.st2.rowcount;
{for i:=1 to z do }
i:=1;
getlocaltime(ST);
if (st.wYear=StrToInt(copy(form7.st2.C ells[1,i],10,1)+Copy(form7.st2.Cells[1,i],9,1)+Copy(form7.st2.Cells[1,i],8,1)+Copy(form7.st2.Cells[1,i],7,1))) and (st.wMonth=StrToInt(Copy(form7.st2. Cells[1,i],5,1)+Copy(form7.st2.Cells[1,i],4,1))) and (st.wday=strtoint(Copy(form7.st2.Ce lls[1,i],2,1)+Copy(form7.st2.Cells[1,i],1,1)))
then
begin
if(ST.Whour=strtoint(Copy(form7.st2 .Cells[2,i],1,1)+Copy(form7.st2.Cells[2,i],2,1)))and (ST.WMinute=strtoint(Copy(form7.st2 .Cells[2,i],4,1)+Copy(form7.st2.Cells[2,i],5,1))) and (st.wSecond=strtoint(Copy(form7.st2 .Cells[2,i],7,1)+Copy(form7.st2.Cells[2,i],8,1))) then
begin
Form5.MediaPlayer1.FileName:=Form7. st2.cells[5,i];
form5.MediaPlayer1.Open;
form5.MediaPlayer1.Play;
ShowMessage(Form7.st2.cells[3,i]);
end;
end;;

end;
procedure TForm5.Timer2Timer(Sender: TObject);
begin
budila;
end;

Ошибок никаких не выдает, но при наступлении заветного времени , которое мы считали из стринггрида ничего не происходит!

Жду ответа!