[delphihelp]

Нужно скопировать текст из stringgrid в edit. В каждой ячейке stringgrid находится по одному символу. Размер stringgrid постоянно разный.
У меня не записывается последняя строчка из stringgrid в edit. В чем проблема не пойму.

Код:

for y := 0 to StringGrid1.RowCount do begin
for x := 0 to StringGrid1.ColCount do begin
txt:= txt+(StringGrid1.Cells[x,y]);
Edit1.text:=(txt);

А при занесении наоборот из edit d stringgrid не записывается последняя буква

Код:

m:=strtoint(edit1.text);//например =6
s:=edit2.Text;
for i:=0 to length(s) do
  StringGrid1.Cells[i mod m,i div m]:=s[i+1];

помогите пожалуйста.

[icWasya]

во первых

Код:

txt='';for y := 0 to StringGrid1.RowCount-1 do begin
for x := 0 to StringGrid1.ColCount-1 do begin
txt:= txt+(StringGrid1.Cells[x,y]);
Edit1.text:=(txt);

во вторых

Код:

m:=strtoint(edit1.text);//например =6
s:=edit2.Text;
for i:=0 to length(s)-1 do
  StringGrid1.Cells[i mod m,i div m]:=s[i+1];

[YVitaliy]

Нет,

length(s)-1

В случае строк, Length возвращаес количество символов, так что там верно, а в случае StringGrid то да, нужно Length(..)-1, так как тут учитывается еще и 0й элемент массива


А, извиняюсь, все верно, не заметил... Сорри.

[delphihelp]

Код:

m:=strtoint(edit2.text);
shmess:=edit4.Text;
for i:=0 to length(shmess)-1 do
  StringGrid1.Cells[i mod m,i div m]:=shmess[i+1];

странно, но одна буква все равно не отображается, которая бала последняя в edit
и сдесь тоже все равно последняя строка не хочет заноситься в stringgrid

[YVitaliy]

Должно работать 100%. Лучше прикрепи свой неработающий пример, а там может что подправим.

[delphihelp]

Вот. В процедуре при нажатии button2 в компонент edit4 не дописывается последняя строка из stringgrid2. Еле нашел, вроде вложился файл. Заранее спасибо за помошь.

[YVitaliy]

Ну, тут я уж не знаю. Проблема не в Эдите или стринггриде, а в алгоритме шифрования - он заполняет ячейки StringGrid2 значениями пустых (не заполненых) ячеек StringGrid1, в которых символ, кажись, 0й (или неопределен). Вот и String их распознавать не хочет. Если вывод делать сразу в Мемо (), то строка запишется, но без этих символов. Тогда, думаю, с рассшифровкой будут проблемы.

[delphihelp]

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

Ну, тут я уж не знаю. Проблема не в Эдите или стринггриде, а в алгоритме шифрования - он заполняет ячейки StringGrid2 значениями пустых (не заполненых) ячеек StringGrid1, в которых символ, кажись, 0й (или неопределен). Вот и String их распознавать не хочет. Если вывод делать сразу в Мемо (), то строка запишется, но без этих символов. Тогда, думаю, с рассшифровкой будут проблемы.

А у меня и в memo такжде как и в едит выводит

Код:

Memo1.Lines.Append((txt));

без последней строки.
А что можно сделать, чтобы был символ определен, может как то по другому написать код?

[YVitaliy]

Заполни сначала все без исключения ячейки StringGrid1 пробелами например, как вариант). Насчет мемо, нужно так

Код:

Memo1.text:=Memo1.Text+StringGrid1.Cells[X1,Y1];

[delphihelp]

Все, наконец то все записалось. В прцедуре на кнопку button1 нужно вместо

Код:

for i:=1 to length(mess)-1 do

написать

Код:

for i:=0 to length(mess)-1 do  

и тогда все заработает. Спасибо большое что помогли.

[YVitaliy]

Так не помог-то ничем Да и ладно.

[delphihelp]

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

Так не помог-то ничем Да и ладно.

ой, доизменялся, стало писать опять со второй ячейки stringgrid. А может можно опять вернуть как то из истории delphi то что я раньше писал?

[nixel]

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

ой, доизменялся, стало писать опять со второй ячейки stringgrid. А может можно опять вернуть как то из истории delphi то что я раньше писал?

В скрытой папке __history лежат бэкапы pas и dfm файлов. Поищи там, только аккуратно, сначала скопируй уже работающий проект куда-нибудь, чтобы не перетереть все.

[delphihelp]

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

В скрытой папке __history лежат бэкапы pas и dfm файлов. Поищи там, только аккуратно, сначала скопируй уже работающий проект куда-нибудь, чтобы не перетереть все.

ага, нашел.

[delphihelp]

А как можно заполнить пустые ячейки stringgrid например символом "-"? Потому что я заметил, что все таки он пропустил два пробела.