RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 246
от 22.09.2005, 23:37

Вопрос № 26.468

Здравствуйте, Гуру! Изучая основы Делфей, столкнулся с задачей сохранения введённых пользователем данных в поле Edit после перезагрузки программы. Слышал, что надо прилепить текстовый файл к ексешнику, неужели нет метода попроще? Спасибо.

Отправлен: 16.09.2005, 23:27 Вопрос задал: Щербаков Сергей Николаевич (статус: 1-ый класс) Всего ответов: 9 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Силантьев Евгений Александрович Здравствуйте, Щербаков Сергей Николаевич! А чем Вас чтение из файла то не устраевает! Ничего сложного в этом нет - да и поще решения я не вижу. Нет можно конечо записать эти данный и в реестр и в таблицу базы данных ... но зачем такие трудности. А умение работать с файлами Вам не раз пригодится в будущем! Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Txt: TextFile; // добавляем переменную типа текстовый файл implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin AssignFile(Txt, 'txt.txt'); // Ассоциируем текстовый файл с переменной if FileExists('txt.txt') = False then // Проверяем существует ли текстовый файл begin // Если не существует Rewrite(Txt); // Создаем текстовый файл writeln(Txt, Edit1.Text); // Записываем в него строку end else begin // Если существует Append(Txt); //Открываем текстовый файл для записи в конец файла writeln(Txt, Edit1.Text); // Записываем в него строку end; CloseFile(Txt); // Закрываем файл!!! Это Обязательно!!!! end; procedure TForm1.Button2Click(Sender: TObject); var line: string; begin AssignFile(Txt, 'txt.txt'); if FileExists('txt.txt') = True then begin Reset(Txt); // Открываем файл для чтения readln(Txt, line); // читаем строку Edit1.Text:= line; CloseFile(Txt); end else ShowMessage('Файл txt.txt отсутствует'); end; end. --------- The world is mine! :)

Ответ отправил: Силантьев Евгений Александрович (статус: 6-ой класс) Отправлен: 17.09.2005, 00:47

Отвечает: Master135 Здравствуйте, Щербаков Сергей Николаевич! Любая программа, которую вы пишите размещает данные в оперативной памяти, а ее содержимое постоянно изменяется, следовательно данные нужно записывать куда-то в другое место(БД,Реестр,файл как уже писалось выше, кроме того можно гонять инфу по сетям). Лучшим решением действительно будет файл; пример работы с ним уже описан выше

Ответ отправил: Master135 (статус: 7-ой класс) Отправлен: 17.09.2005, 03:02

Отвечает: Ballon Здравствуйте, Щербаков Сергей Николаевич! Нет, надо либо в файле либо базе --------- Хочу все знать...

Ответ отправил: Ballon (статус: 4-ый класс) Отправлен: 17.09.2005, 06:28

Отвечает: sir henry Здравствуйте, Щербаков Сергей Николаевич! Ничего себе заявление!!! Это самый простой метод. Только не надо прикреплять текстфайл к экзешнику, тогда это будет действительно просто. Из альтернатив - можно сохранять данные в ini-файле, можно сохранять в выбранном Вами ключе реестра. Но в этих случаях нужно будет использовать дополнительный класс - либо TIniFile (который находится в модуле IniFiles), либо TRegistry (который находится в модуле Registry). Это автоматом влечет за собой увеличение размера экзешника. Так что текстовый файл - самый простой и незатратный способ. Если данных нужно сохранять очень много, то тут безальтернативный вариант - использование какой-либо базы данных.

Ответ отправил: sir henry (статус: Профессор) Отправлен: 17.09.2005, 07:26

Отвечает: Romodos Здравствуйте, Щербаков Сергей Николаевич! Что значит фраза "... столкнулся с задачей сохранения введённых пользователем данных в поле Edit после перезагрузки программы..." Надо самому сохранять информацию либо в файл либо в реестр. А иначе где будет хранииться инфа??? Например так Чтение: var f:text; begin assignfile(f,'input.txt'); reset(f); readln(edit1.text); close; Приложение: Чтение в FormCreate: var f:text; begin assignfile(f,'input.txt'); reset(f); readln(f,edit1.text); closefile(f); Запись в FormClose: var f:text; begin assignfile(f,'input.txt'); rewrite(f); writeln(f,edit1.text); closfile(f); --------- FAQ me off!

Ответ отправил: Romodos (статус: 7-ой класс) Отправлен: 17.09.2005, 09:24

Отвечает: Jadd Здравствуйте, Щербаков Сергей Николаевич! а что значит "прилепить"? Если речь о записи в файл, то куда проще? Можно, конечно в реестр ( :) ) писать, но это не проще. --------- Если в сердце дверь закрыта, нужно в печень постучаться

Ответ отправил: Jadd (статус: Практикант) Отправлен: 17.09.2005, 11:35

Отвечает: Rusland Здравствуйте, Щербаков Сергей Николаевич! Проще всего либо писать в реестр, либо в ini-файл и загружать данные после старта программы. Удачи. --------- Тише едешь, дальше будешь... от того места куда едешь

Ответ отправил: Rusland (статус: Студент) Отправлен: 19.09.2005, 09:19

Отвечает: Lector Здравствуйте, Щербаков Сергей Николаевич! Самый простой метод - создание записи в реестре с параметрами вашей программы и считывание их при загрузке. --------- Хочешь помочь дураку - сам дурак

Ответ отправил: Lector (статус: 4-ый класс) Отправлен: 19.09.2005, 11:23

Отвечает: Anefedov Здравствуйте, Щербаков Сергей Николаевич! Нифига се гуру наотвечали!!! Используйте компонент TIniFile. Он для того и нужен. С уважением.

Ответ отправил: Anefedov (статус: 6-ой класс) Отправлен: 20.09.2005, 13:57

Вопрос № 26.482

Люди как сделать подсветку синтаксиса в RichEdit (пример:=оценка)

Отправлен: 17.09.2005, 09:13 Вопрос задал: killer-klod (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Jadd Здравствуйте, killer-klod! Тут уже обсуждался подобный вопрос. Поищи по сайту. --------- Если в сердце дверь закрыта, нужно в печень постучаться

Ответ отправил: Jadd (статус: Практикант) Отправлен: 17.09.2005, 11:37

Отвечает: sir henry Здравствуйте, killer-klod! Если коротко, то нада искать вхождение слова в определенный список. Если ключевых слов много, то наверное нужно использовать базу данных. В простейшем случае список можно загружать из текстового файла. В примере использован массив-константа, это не совсем удобно, если придется добавлять ключевые слова или изменять их в процессе эксплуатации программы. Пример взят с сайта delphiworld.narod.ru Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) RichEdit1: TRichEdit; Button1: TButton; OpenDialog1: TOpenDialog; Button2: TButton; procedure RichEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure HighLight; function CheckList(InString: string): boolean; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TForm1.CheckList(InString: string): boolean; const TheList: array[1..13] of string = ('begin', 'or', 'end','end.', 'end;', 'then', 'var', 'for', 'do', 'if', 'to', 'string', 'while'); var X: integer; begin Result := false; X := 1; InString := StringReplace(InString, ' ', '',[rfReplaceAll]); InString := StringReplace(InString, #$A, '',[rfReplaceAll]); InString := StringReplace(InString, #$D, '',[rfReplaceAll]); while X < High(TheList) + 1 do if TheList[X] = lowercase(InString) then begin Result := true; X := High(TheList) + 1; end else inc(X); end; procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var WEnd, WStart, BCount: integer; Mark: string; begin if (ssCtrl in Shift) and (Key = ord('V')) then Button2Click(Self); if (Key = VK_Return) or (Key = VK_Back) or (Key = VK_Space) then begin if RichEdit1.SelStart > 1 then begin WStart := 0; WEnd := RichEdit1.SelStart; BCount := WEnd - 1; while BCount <> 0 do begin Mark := copy(RichEdit1.Text, BCount, 1); if (Mark = ' ') or (Mark = #$A) then begin WStart := BCount; BCount := 1; end; dec(BCount); end; RichEdit1.SelStart := WEnd - (WEnd - WStart); RichEdit1.SelLength := WEnd - WStart; if CheckList(RichEdit1.SelText) then RichEdit1.SelAttributes.Style := [fsBold] else RichEdit1.SelAttributes.Style := []; RichEdit1.SelStart := WEnd; RichEdit1.SelAttributes.Style := []; end; end; end; function SearchFor(WorkSpace, Search: string; Start: integer): integer; var Temp: string; begin Temp := copy(WorkSpace, Start, length(WorkSpace)); Result := pos(Search, Temp); end; procedure TForm1.HighLight; var WStart, WEnd, WEnd2: integer; WorkSpace, SWord: string; begin WStart := 1; WEnd := 1; with RichEdit1 do begin WorkSpace := Text + ' ' + #$D#$A; while WEnd > 0 do begin WEnd := SearchFor(WorkSpace, ' ', WStart); WEnd2 := SearchFor(WorkSpace, #$A, WStart); if WEnd2 < WEnd then WEnd := WEnd2; SWord := copy(WorkSpace, WStart, WEnd - 1); if (SWord <> ' ') and (SWord <>'') then if CheckList(SWord) then begin SelStart := WStart - 1; SelLength := length(SWord); SelAttributes.Style := [fsBOLD]; SelStart := WStart + length(SWord) + 1; SelAttributes.Style := []; end; WStart := WStart + WEnd; end; SelStart := length(Text); SetFocus; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); HighLight; end; end; procedure TForm1.Button2Click(Sender: TObject); begin RichEdit1.PasteFromClipboard; HighLight; end; end.

Ответ отправил: sir henry (статус: Профессор) Отправлен: 17.09.2005, 13:43

Вопрос № 26.485

Здравствуйте! Есть ли у кого исходник маршрутиризатора на Делфи ?

Отправлен: 17.09.2005, 11:55 Вопрос задал: Vbhjndjhtw (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, Vbhjndjhtw! Могу на сишнике дать. На Дельфи навряд ли найдете - слишком специфичная задача. Системные задачи всегда на Си решали. Практически 97% можно конвертнуть в Паскаль, остальное - просто дописать свои функции (например, многие макросы, объявленые в хидерах, прямых аналогов в Паскале не имеют).

Ответ отправил: sir henry (статус: Профессор) Отправлен: 18.09.2005, 17:22

Вопрос № 26.487

Здравствуйте! Есть ли у кого исходник маршрутиризатора на Делфи ?(типа winroute)

Отправлен: 17.09.2005, 12:00 Вопрос задал: Vbhjndjhtw (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Petya-kurochkin Здравствуйте, Vbhjndjhtw! В смысле маршрутизатора, если ты имеещь ввиду поиск кратчайшего пути(Типа для игр, что бы счелкнуть мышкой, а он туда побежал), то у меня есть алгоритм, а исходник по нему в 2-а счета можно сделать! Алгоритм дать? --------- Всех порву! Всех побью! Но если можно убегу!

Ответ отправил: Petya-kurochkin (статус: 2-ой класс) Отправлен: 17.09.2005, 15:36 Оценка за ответ: 3 Комментарий оценки: Маршрутиризатор это программа для объединения сетей, по сути. Переадресация всяких протоколов.

Отвечает: sir henry Здравствуйте, Vbhjndjhtw! Winroute - это не маршрутизатор. Напишите его создателям, они Вам с радостью вышлют исходник, правда на Си. Но судя по Вашему вопросу, Вы очень круты в программировании и без труда конвертнете его в Дельфи.

Ответ отправил: sir henry (статус: Профессор) Отправлен: 18.09.2005, 17:09 Оценка за ответ: 5 Комментарий оценки: Не очень крут, но хочу таким стать.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.