|
|
Регистрация | << Правила форума >> | 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, увы, больше не программирую. Рекомендуемая литература по программированию |
#7
|
|||
|
|||
Это всё капризы преподавателя по информатике! я и сам не вижу смысла в скинах,но что поделаеш-сказали,я сделал!
Теперь самый-самый последний вопрос-как организовать автонажатие на строку Combobox-без нажатия программа нехочет применять скин! |
#8
|
||||
|
||||
Код:
ComboBoxonChange(ComboBox); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#9
|
|||
|
|||
Почему-то ошибочку выдаёт
Код:
Undeclared indentifier :"ComboBoxOnChange" Код:
FormCreate Последний раз редактировалось Dima170792, 17.04.2011 в 21:46. |
#10
|
|||
|
|||
Пожалуста обьясните как сделать автоматическое нажатие на combobox
|
#11
|
|||
|
|||
Цитата:
а) вызываем эту функцию. Скорее всего, это ComboBox1OnChange или б) вызываем стандартный обработчик элемента: ComboBox1.OnChange |
#12
|
|||
|
|||
Цитата:
Код:
Not enough actual parametrs |
#13
|
|||
|
|||
Цитата:
|
#14
|
|||
|
|||
прописал следующее
Код:
type TForm1 = class(TForm) DataSource1: TDataSource; ADOConnection1: TADOConnection; ADODataSet1: TADODataSet; DBNavigator1: TDBNavigator; sSkinManager1: TsSkinManager; CoolTrayIcon1: TCoolTrayIcon; sPanel1: TsPanel; sPanel2: TsPanel; sButton1: TsButton; Edit1: TsEdit; sButton2: TsButton; sPanel4: TsPanel; sButton3: TsButton; sButton4: TsButton; sButton5: TsButton; sButton6: TsButton; sButton7: TsButton; Edit2: TsEdit; sPanel3: TsPanel; DBGrid1: TDBGrid; sSkinProvider1: TsSkinProvider; sPanel5: TsPanel; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; sWebLabel1: TsWebLabel; sPanel6: TsPanel; SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton; SpeedButton3: TSpeedButton; sComboBox1: TsComboBox; Edit3: TEdit; Image1: TImage; sLabel1: TsLabel; procedure FormActivate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure sButton1Click(Sender: TObject); procedure sButton3Click(Sender: TObject); procedure sButton4Click(Sender: TObject); procedure sButton5Click(Sender: TObject); procedure sButton6Click(Sender: TObject); procedure sButton7Click(Sender: TObject); procedure sButton2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure sSkinProvider1TitleButtons0MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure CoolTrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure sComboBox1Change(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure dima(Sender: TObject); {$R *.dfm} procedure TForm1.sComboBox1Change(Sender: TObject);//вот что записано в стандартном обработчике событий begin sSkinManager1.SkinName:=sComboBox1.Items[sComboBox1.itemIndex]; end; procedure TForm1.dima(Sender: TObject);//ето я написал begin sComboBox1.OnChange(dima); end; end. Код:
Not enough actual parametrs |
#15
|
||||
|
||||
так попробуй
procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.OnChange(Sender); end; |