[Dima170792]

Помогите-нигде не могу найти внятного обьяснения -мне нужно сохранить текст из 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. 

Админ: Пользуемся тегами для оформления кода!

[NumLock]

Код:

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;

[Dima170792]

Только код нужен для delphi7!Но по первому коду возникла проблема-при считывании из txt в edit появляются 2 лишних символа ||как от них избавиться?,может ето изза того,что я использовал только часть кода:

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
S:=TStringList.Create;
S.LoadFromFile('SaveLoad.txt');
Edit1.Text:=S.Text;

а дальше применил менеджеру скинов тест =в качестве названия скина,который выбирается по умолчанию?
Наверное нет!только что попробовал с полным кодом-тот же эфект!Причём в текстовом файле этих палочек нету-тобиш они добавляются в ходе выполнения программы!обьясните пожалуста -ато я уже всё что мог-перепробовал!

[M.A.D.M.A.N.]

Это перенос строки и возврат каретки.
Замени на

Код:

  Edit1.text := s[0];

P.S. Клевый скин

[Dima170792]

Спасибо!
Есть ещё 1 вопрос -как можно сделать так,чтоб в ComboBox активная строка при запуске программы была не пустой-а с загружеными из txt данными(процесс загрузки я организовал,а когда пускаеш программу-надо каждый раз нажимать на открытие списка) -а нужно чтоб было так :

[M.A.D.M.A.N.]

Код:

itemindex := 0;

П.С. Скажи пожалуйста, если не секрет, зачем в такой программе скин? Меня чет любопытство распирает.

[Dima170792]

Это всё капризы преподавателя по информатике! я и сам не вижу смысла в скинах,но что поделаеш-сказали,я сделал!
Теперь самый-самый последний вопрос-как организовать автонажатие на строку Combobox-без нажатия программа нехочет применять скин!

[M.A.D.M.A.N.]

Код:

ComboBoxonChange(ComboBox);

P.S. Оооочень странное требование преподавателя. Интерфейс превыше функционала. Во чуваки дают.

[Dima170792]

Почему-то ошибочку выдаёт

Код:

Undeclared indentifier :"ComboBoxOnChange"

я прописал в событии

Код:

FormCreate

может в другом месте надо?

[Dima170792]

Пожалуста обьясните как сделать автоматическое нажатие на combobox

[AlexSku]

Сообщение от Dima170792

Почему-то ошибочку выдаёт

Код:

Undeclared indentifier :"ComboBoxOnChange"

Это означает, что нет такого идентификатора, в данном случае процедуры. Надо обращаться к тому, что уже описано (присутствует в программе). Если элемент называется Combobox1 и у него есть обработчик, то
а) вызываем эту функцию. Скорее всего, это ComboBox1OnChange
или б) вызываем стандартный обработчик элемента: ComboBox1.OnChange

[Dima170792]

Сообщение от AlexSku

Это означает, что нет такого идентификатора, в данном случае процедуры. Надо обращаться к тому, что уже описано (присутствует в программе). Если элемент называется Combobox1 и у него есть обработчик, то
а) вызываем эту функцию. Скорее всего, это ComboBox1OnChange
или б) вызываем стандартный обработчик элемента: ComboBox1.OnChange

теперь выкидует

Код:

Not enough actual parametrs

[AlexSku]

Сообщение от Dima170792

теперь выкидует

Код:

Not enough actual parametrs

Дима, привыкай к тому, что код, бывает, идёт не один к одному, а немного в упрощенном виде. У любой функции (ну, или как правило) есть параметры (в скобках). В данном случае это Sender типа TObject. Если обработчик вызывается нормально, т.е. щёлканьем по ComboBox, то Sender'ом будет этот ComboBox. Но, поскольку ты вызываешь этот обработчик вручную, то тебе даётся почётное право указать процедуре, кто её вызвал. Я же не знаю, как ты используешь Sender внутри процедуры, поэтому и ничего не написал. Одно из стандартных решений написать ComboBox1, можно также написать nil. Если ты хочешь признаться, что сам вызываешь функцию, опиши класс Dima и вызывай ComboBox1.OnChange(Dima).

[Dima170792]

прописал следующее

Код:

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

Что я сделал неправильно?

[Pilot_Red]

так попробуй
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.OnChange(Sender);
end;