|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Как сохранить текст из edit в txt!
Помогите-нигде не могу найти внятного обьяснения -мне нужно сохранить текст из edit в txt!
Код:
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 Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; S: TStringList; GetStr: String; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject);//чтение текста begin S:=TStringList.Create; S.LoadFromFile('SaveLoad.txt'); Edit1.Text:=S.Text; GetStr:=Edit1.Text; Delete(GetStr,Length(GetStr),1); Delete(GetStr,Length(GetStr),1); Edit1.Text:=GetStr; end; procedure TForm1.Button1Click(Sender: TObject);//сохранение текста begin S:=TStringList.Create; S.Text:=Edit1.Text; S.SaveToFile('SaveLoad.txt'); Edit1.Clear; end; end. Последний раз редактировалось Dima170792, 17.04.2011 в 19:14. |
#2
|
||||
|
||||
Код:
var f: THandle; dummy: Cardinal; begin f:=CreateFile('Project1.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0); WriteFile(f, Edit1.Text[1], Length(Edit1.Text), dummy, nil); CloseHandle(f); end; Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Только код нужен для delphi7!Но по первому коду возникла проблема-при считывании из txt в edit появляются 2 лишних символа ||как от них избавиться?,может ето изза того,что я использовал только часть кода:
Код:
procedure TForm1.Button2Click(Sender: TObject); begin S:=TStringList.Create; S.LoadFromFile('SaveLoad.txt'); Edit1.Text:=S.Text; Наверное нет!только что попробовал с полным кодом-тот же эфект!Причём в текстовом файле этих палочек нету-тобиш они добавляются в ходе выполнения программы!обьясните пожалуста -ато я уже всё что мог-перепробовал! Последний раз редактировалось Dima170792, 17.04.2011 в 19:12. |
#4
|
||||
|
||||
Это перенос строки и возврат каретки.
Замени на Код:
Edit1.text := s[0]; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
|||
|
|||
Спасибо!
Есть ещё 1 вопрос -как можно сделать так,чтоб в ComboBox активная строка при запуске программы была не пустой-а с загружеными из txt данными(процесс загрузки я организовал,а когда пускаеш программу-надо каждый раз нажимать на открытие списка) -а нужно чтоб было так : |
#6
|
||||
|
||||
Код:
itemindex := 0; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |