Вопрос № 88453: Пожалуйста помогите: нужно получить массив данных d из stringGrid (6 столбцов. 2 строки). То есть как сделать зависимость d[i] от i столбца StringGrid?? ...Вопрос № 88478: Здравствуйте уважаемые эксперты
1)Как записать в файл всю иерархию папок и файлов и переслать этот файл по электронной почте
2)Как незаметно от пользователя отправить файл на ftp-сервер (например ftp.narod.ru)...
Вопрос № 88.453
Пожалуйста помогите: нужно получить массив данных d из stringGrid (6 столбцов. 2 строки). То есть как сделать зависимость d[i] от i столбца StringGrid??
Отправлен: 24.05.2007, 22:32
Вопрос задал: Mantis (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Устинов С.Е.
Здравствуйте, Mantis!
Предлагаю такой вариант:
procedure TForm1.Button1Click(Sender: TObject);
var d:array of string;
j,k:integer;
begin
SetLength(d,StringGrid1.RowCount*StringGrid1.ColCount+1);
for k:=0 to StringGrid1.RowCount-1 do
for j:=0 to StringGrid1.ColCount-1 do
begin
d[k*StringGrid1.ColCount+j+1]:=StringGrid1.Cells[j,k];
end;
ShowMessage(d[3]);
end;
Необходимо учесть, что первая ячейка в TStringGrid имеет номер [0,0]. В массив я записываю эту ячейку под номером 1.
Если же я понял условие не так, то возможен еще один вариант - d[i,j]:=StringGrid1.Cells[j,i];
Ответ отправил: Устинов С.Е. (статус: Специалист)
Ответ отправлен: 24.05.2007, 23:48
Отвечает: Sattar
Здравствуйте, Mantis!
Код в приложении.
Значения в масиве D изменяются как при вводе пользователя так и при програмном вводе.
Если будет не понятно то пишы на sattar[a]pochta[dot]ru
Приложение:
--------- Programming is like sex, one mistake and you have to support it for the rest of your life.
Ответ отправил: Sattar (статус: 3-ий класс)
Ответ отправлен: 26.05.2007, 16:39
Вопрос № 88.478
Здравствуйте уважаемые эксперты
1)Как записать в файл всю иерархию папок и файлов и переслать этот файл по электронной почте
2)Как незаметно от пользователя отправить файл на ftp-сервер (например ftp.narod.ru)
Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, Бушманова Ирина Юрьевна!
1) Выполнить в консоли:
dir /S /B > c.txt
Либо, другой командой, но тогда надо будет перейти в корень диска:
tree > c.txt
Потом файл можно отправить по почте.
Но лучше заархивировать.
2) Что значит незаметно? От какого пользоателя? Разместить файл на сервере, так чтобы другие не могли его видеть можно, только если вы обладете правами администратора на этом сервере.
--------- Не узнаешь - не попробуешь.
Отвечает: Sattar
Здравствуйте, Бушманова Ирина Юрьевна!
Откровенно говоря програма бутет похожа на шпион.
Если это так то я НЕ НЕСУ ОТВЕТСТВЕНОСТЬ ЗА ИСПОЛЬЗОВАНИЕ КОДА.
Как создать иерархию папок вы уже знаете .
Теперь как отправить(как заархивировать можно посмотреть в недавных вопросах или в моих ответах) используйте компоненты Indy документацыю на них можна найти в Интернете, если не найдете пришлите e-mail и я вышлю.
Пример отправки на Ftp сервер в приложении.
Приложение:
--------- Programming is like sex, one mistake and you have to support it for the rest of your life.
Ответ отправил: Sattar (статус: 3-ий класс)
Ответ отправлен: 26.05.2007, 17:26
