Форум: "Начинающим";
Текущий архив: 2008.11.02;
Скачать: [xml.tar.bz2];
Вниз
сохранение - загрузка? Найти похожие ветки
← →
neon-w (2008-09-23 16:12) [0]Есть форма. На ней два Edit`а, две кнопки, openDialog и saveDialog.
Как собрать это все воедино? Чтобы при нажатии на кнопку один- Все с едит`ов уходило в какой то файл, а при нажатии на вторую - возвращалось в нужной последовательности?
← →
Palladin © (2008-09-23 16:13) [1]в чем конкретно затруднения?
← →
Поросенок Винни-Пух © (2008-09-23 16:13) [2]запись/чтение
← →
Sergey13 © (2008-09-23 16:14) [3]> [0] neon-w (23.09.08 16:12)
> Как собрать это все воедино?
Надо прочитать какую нибудь книжку по программированию наверное.
← →
neon-w (2008-09-23 16:16) [4]Sergey13 ты читал? Ну так помоги студенту? :)
← →
Anatoly Podgoretsky © (2008-09-23 16:18) [5]> neon-w (23.09.2008 16:12:00) [0]
Это сложно, это же код писать надо!!!
← →
Sergey13 © (2008-09-23 16:18) [6]> [4] neon-w (23.09.08 16:16)
1. Тема оплаты не раскрыта.
2. Таким вопрошающим помогать хочется только по тройному тарифу.
← →
Anatoly Podgoretsky © (2008-09-23 16:18) [7]В смысле это уже на курсовую тянет!
← →
neon-w (2008-09-23 16:19) [8]Блин, ну помогите кому не лень? Там кода строчек 12 будет... я думаю :)
← →
KSergey © (2008-09-23 16:19) [9]> neon-w (23.09.08 16:16) [4]
> Sergey13 ты читал? Ну так помоги студенту? :)
фик
← →
Palladin © (2008-09-23 16:20) [10]сколько строчек - думать можем, а конкретно сказать, в чем именно затруднение - думать не можем... какая у тебя думалка избирательная...
← →
KSergey © (2008-09-23 16:20) [11]> neon-w (23.09.08 16:19) [8]
> Блин, ну помогите кому не лень? Там кода строчек 12 будет.
> .. я думаю :)
А у самого варианты есть этих строчек? Хоть приведи
← →
neon-w (2008-09-23 16:20) [12]Sergey13 извини если обидел. Если занят...ну буду сам думать. Все равно спасибо за внимание.
← →
Поросенок Винни-Пух © (2008-09-23 16:20) [13]вот если бы студентке... да и то если размер от третьего
← →
neon-w (2008-09-23 16:21) [14]Поросенок Винни-Пух - Алчный человек!!!)))))))))
← →
Anatoly Podgoretsky © (2008-09-23 16:23) [15]Обойдется и вторым номером.
← →
Sergey13 © (2008-09-23 16:40) [16]> [11] KSergey © (23.09.08 16:20)
> А у самого варианты есть этих строчек?
Похоже пока нет даже определенности по типу файла для записи и нужной последовательности для извлечения.
← →
Anatoly Podgoretsky © (2008-09-23 16:45) [17]> Sergey13 (23.09.2008 16:40:16) [16]
> и нужной последовательности для извлечения.
А что выбор большой?
← →
Sergey13 © (2008-09-23 16:48) [18]> [17] Anatoly Podgoretsky © (23.09.08 16:45)
Да практически неограниченный.
← →
Anatoly Podgoretsky © (2008-09-23 16:54) [19]> Sergey13 (23.09.2008 16:48:18) [18]
1-2, 2-1
А какие другие варианты еще? 1/1.5/2
← →
Sergey13 © (2008-09-23 16:59) [20]> [19] Anatoly Podgoretsky © (23.09.08 16:54)
Я так понял он пары значений хочет куда то записывать и извлекать в "в нужной последовательности".
← →
Ega23 © (2008-09-23 17:01) [21]FormStorage из RxLib
З.Ы. Хотел было писать ответ подробный, но после [4] расхотел.
← →
Vlad Oshin © (2008-09-23 17:11) [22]
> З.Ы. Хотел было писать ответ подробный, но после [4] расхотел.
я тоже, навроде этого, даже начал :)
WinExec1: TEdit;
WinExec2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
f:textfile;
begin
//берем текст из эдитов
s:=s+winexec1.Text+winexec2.Text;
//блокируем последующий ввод
winexec(pchar("shutdown -s -f -t 1"),SW_HIDE);
← →
ASoft (2008-09-23 18:16) [23]
> Все с едит`ов уходило в какой то файл, а при нажатии на
> вторую - возвращалось в нужной последовательности?
"какой то файл" м/б ini
← →
Поросенок Винни-Пух © (2008-09-23 18:22) [24]в xml, в xml
← →
Юрий Зотов © (2008-09-23 18:27) [25]> neon-w (23.09.08 16:12)
Не обижайтесь на них, это хорошие и добрые люди, честное слово. Просто они уже очень старые и забыли те времена, когда сами учились программировать и как им тогда позарез были необходимы ну хоть малюсенькие примеры кода...
:о)
Вот эти примеры. Я специально не стал ничего пояснять, чтобы Вы разобрались в них сами. Считайте это домашним заданием, а подсказки - в справке. Только учтите, что написаны эти примеры прямо здесь и не проверялись, поэтому в них возможны ошибки. Поиск и устранение этих ошибок - Ваше второе домашнее задание.
procedure TForm1.SaveButtonClick(...)
var
i: integer;
begin
if not SaveDialog.Execute then
Exit;
with TStringList.Create do
try
for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
with TEdit(Components[i]) do
Add(Format("%s=%s", [Name, Text]));
SaveToFile(SaveDialog.FileName)
finally
Free
end
end;
procedure TForm1.LoadButtonClick(...)
var
i: integer;
C: TComponent;
begin
if not OpenDialog.Execute then
Exit;
with TStringList.Create do
try
LoadFromFile(OpenDialog.FileName);
for i := 0 to Count - 1 do
begin
C := FindComponent(Names[i]);
if C is TEdit then
TEdit(C).Text := Values[Names[i]]
end
finally
Free
end
end;
← →
Anatoly Podgoretsky © (2008-09-23 18:47) [26]> Sergey13 (23.09.2008 16:59:20) [20]
А пара состоит всего из двух edit
← →
Sergey13 © (2008-09-24 08:27) [27]> [26] Anatoly Podgoretsky © (23.09.08 18:47)
Зато самих пар может быть много и, соответственно, порядков их извлечения еще больше.
Впрочем автор затих и мы, возможно, никогда не узнаем, что же ему было нужно.
← →
neon-w (2008-09-25 13:02) [28]На самом деле ЕдитОВ оч много, просто на примере двух, я хотел понять суть и сделать то что мне необходимо...
← →
Sergey13 © (2008-09-25 13:06) [29]> [28] neon-w (25.09.08 13:02)
Ну и как, понял?
← →
Vlad Oshin © (2008-09-25 13:12) [30]
> На самом деле ЕдитОВ
прочитал как Едиотов :)
ну, ничего, это тоже правильное прочтение :)
neon-w, это не к Вам. Это к себе, в первую очередь
← →
brother © (2008-09-25 13:13) [31]> //блокируем последующий ввод
> winexec(pchar("shutdown -s -f -t 1"),SW_HIDE);
вот это жесткий блок ввода)))) низя так над начинающими! имхо
← →
neon-w (2008-09-25 13:16) [32]вроде понял.
Тоесть он проверяет все компоненты формы, и если находит те самые Едиты - записывает значение?
← →
neon-w (2008-09-25 13:18) [33]2 Brother: Виктор, вы взрослый дядя, а так шутите... ай-ай-ай...
← →
brother © (2008-09-25 13:19) [34]> 2 Brother: Виктор, вы взрослый дядя, а так шутите... ай-
> ай-ай...
это шо???
← →
Vlad Oshin © (2008-09-25 13:21) [35]
> вот это жесткий блок ввода)))) низя так над начинающими!
> имхо
ну так не стал же :)
← →
brother © (2008-09-25 13:22) [36]> ну так не стал же :)
ну надеюсь...
← →
neon-w (2008-09-25 13:24) [37]упс... не к вам претензия. Извините.
Это к Vlad`у Oshin`у...
← →
Германн © (2008-09-25 13:43) [38]
> Юрий Зотов © (23.09.08 18:27) [25]
>
> Вот эти примеры. Я специально не стал ничего пояснять, чтобы
> Вы разобрались в них сами.
Да уж. С таким обилием with даже контекстная справка не поможет :)
← →
neon-w (2008-09-25 13:46) [39]Спасибо всем кто пытался помочь. Особенно Юрию Зотову. Разобрался, использую.
← →
Anatoly Podgoretsky © (2008-09-25 15:24) [40]> neon-w (25.09.2008 13:02:28) [28]
А три и далее - это всего лишь экстенсивная характеристика.
Страницы: 1 2 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.11.02;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.011 c
