А как сохранить данные не в СУБД!

← →
Светик (2003-01-15 13:08) [0]

а просто в обычном текстовом редакторе? или где ещё можно сохранить данные не используя СУБД?
Подскажите пожайлуста, надо завтра экзамен сдать!

← →
Delirium^.Tremens (2003-01-15 13:11) [1]

Как насчет "в файле"?

← →
Alexandr (2003-01-15 13:21) [2]

а ты знаешь, что данные всегда хранятся в базе данных. На то она и база данных.
Все другие места хранения данных порочны.
Так и скажи экзаменатору

← →
MsGuns (2003-01-15 13:27) [3]

Если данных немного и они имеют линейную архитектуру, то вполне подойдет обычный текстовый или бинарный файл. Если это параметры программы (типа настроечных), то вполне годится TIniFile.
А еще можно сохранить данные в одном из стандартных не субэдэшных форматов, Excel или Word, например. А вообще способов достаточно много,- все зависит от изобретательности программера.

← →
Светик (2003-01-15 13:27) [4]

надо привести пример программы хранения именно в файле
только не в субд!
ну подскажите!

← →
Delirium^.Tremens (2003-01-15 13:29) [5]

Пока что, все предложенные способы = "в файле".

← →
Светик (2003-01-15 13:29) [6]

ну просто в текстовом редакторе
БД не большая просто примечик какой нитЬ!
подскажите!

← →
Reindeer Moss Eater (2003-01-15 13:31) [7]

Запусти текстовый редактор.
Найди окно с его текстом.
Пошли ему сообщение WM_SETTEXT.
Так получится в "текстовом редакторе"

← →
MsGuns (2003-01-15 13:31) [8]

Берешь любую компоненту класса TList. Например, TMemo. У него есть методы SaveToFile и LoadFromFile. Дальше по хэлпу для этих процедур

← →
Delirium^.Tremens (2003-01-15 13:31) [9]

Текстовый редактор (если он отвечает требованиям Microsoft) должен иметь меню Файл(File)->Сохранить(Save) - далее будет показан диалог для сохранения файла :-)

← →
Светик (2003-01-15 13:32) [10]

ну как сохранить в файле
фамилия : иванов
имя : коля
тел : 43897422

← →
Delirium^.Tremens (2003-01-15 13:38) [11]

Телефон неправильный :-) не выйдет.

← →
Val (2003-01-15 13:41) [12]

мда..., ув. Светик - вы читать умеете? вам же отвечают, а вы заладили: "как, как.." - каком кверху, извиняюсь. Читаем что-нибудь по работе с файлами или ищем исходники через поисковики, на ваш выбор.

← →
MsGuns (2003-01-15 13:49) [13]

procedure Form1.ButtonSaveClick(Sender: TObject); var l: TStrings; begin l := TStringList.Create; l.Add("Фамилия="+Form1.Edit1.Text); // Контрол с фамилией l.Add("Имя="+Form1.Edit2.Text); // Контрол c именем l.Add("Телефон="+Form1.Edit3.Text); // Контрол с телефоном l.SaveToFile("Data.txt"); // В тек.каталог (с перекрытием) l.Free; end; procedure Form1.ButtonLoadClick(Sender: TObject); var l: TStrings; begin l := TStringList.Create; try l.LoadFromFile("Data.txt"); // В тек.каталоге except ShowMessage("Файл с данными не найден"); Form1.Edit1.Text := ""; Form1.Edit2.Text := ""; Form1.Edit3.Text := ""; exit; end; Form1.Edit1.Text := Copy(l[0],pos("=",l[0])+1,Length(l[0])- pos("=",l[0]); Form1.Edit2.Text := Copy(l[1],pos("=",l[1])+1,Length(l[1])- pos("=",l[1]); Form1.Edit3.Text := Copy(l[2],pos("=",l[2])+1,Length(l[2])- pos("=",l[2]); l.Free; end;

← →
Светик (2003-01-15 14:32) [14]

спасибо вам MsGuns, но я подумала написать
так
только тут ошибка после ....

procedure TForm1.Button3Click(Sender: TObject);
var
f: TextFile;
begin
AssignFile (f, "c:\bdate.txt") ;
>>> вот ЗДЕСЬ ПОЧЕМУ ВЫЛАЗИЕТ ОШИБКА!>> Rewrite(f);
Writeln(f, edit1.text );
CloseFile(f);
end;

← →
Дмитрий К.К. (2003-01-15 14:33) [15]

Если имеетси отвращение к СУБД, юзай типизированные файлы :)))

← →
Anatoly Podgoretsky (2003-01-15 14:47) [16]

Ошибка?
Так какая?
Но тебе возможно лучше использовать ини файл, ну или TMemo, TRichEdit.

← →
Светик (2003-01-15 15:11) [17]

всем спасибо за ответы!
особенно очень умным людям

Delirium^.Tremens © (15.01.03 13:38)
Телефон неправильный :-) не выйдет.

Дмитрий К.К. © (15.01.03 14:33)
Если имеетси отвращение к СУБД, юзай типизированные файлы :)))

очень глубокие ответы!

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

← →
Delirium^.Tremens (2003-01-15 15:17) [18]

Светик (15.01.03 15:11)
> если вы такие умные, что же строем не строитесь?

Я слышал несколько другую интерпретацию: почему не богатые?
А телефон действительно неправильный, попробуй набрать. Я не солгал в этой ветке ни разу (не то что в других).

> очень глубокие ответы!

На столь же глубокие вопросы :-)

← →
Дмитрий К.К. (2003-01-15 15:40) [19]

> Светик (15.01.03 15:11)

Девочка, тебе в куклы надо играть.

← →
neXt (2003-01-15 16:13) [20]

...есть ещё XML хотя это конечно тоже "в файле"

← →
Anatoly Podgoretsky (2003-01-15 16:22) [21]

Светик (15.01.03 15:11)
Повежливее давай, ответы диктуются твоими вопросам!

← →
gsu (2003-01-15 16:34) [22]

>> почему не богатые?
А потому и не богатые, что умные

>>Светик (15.01.03 15:11)
>>Повежливее давай, ответы диктуются твоими вопросам!
А лучше свой телефон (-:|~

А как сохранить данные не в СУБД! Найти похожие ветки