почему не сохраняеть данные в Tstringlist c под другим ?

[alman12]

почему не сохраняеть данные в Tstringlist c под другим ?

[ZuBy]

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

почему не сохраняеть данные в Tstringlist c под другим ?

я один не понимаю суть этого предложения?

[eval]

код нужен, автор код давай

[alman12]

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

код нужен, автор код давай

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit2: TEdit;
    Label2: TLabel;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    Persons:TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//if not Assigned(Persons) then
//    Persons := TStringList.Create;
  Persons.Add(edit2.text+memo2.Text);
  Listbox1.Items.Add(Edit2.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ListBox1.ItemIndex>-1 then begin
  Persons.Delete(ListBox1.ItemIndex);
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin

persons.SaveToFile('C:\Users\SAMSUNG\Desktop\mil.txt');
 ListBox1.Items.savetoFile('C:\Users\SAMSUNG\Desktop\lil.dat');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
persons.loadfromfile('C:\Users\SAMSUNG\Desktop\mil.dat');
ListBox1.Items.loadfromFile('C:\Users\SAMSUNG\Desktop\lil.dat');
end;

procedure TForm1.Edit1Change(Sender: TObject);
var x ,i: integer;
   s : string;
begin
  S:=edit1.text;
with ListBox1 do ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(S));
//Listbox1.Perform(LB_SELECTSTRING, 0, longint(Pchar(Edit2.text)));

x:= 1 + (listbox1.ItemIndex);
label2.Caption:='N_ '+inttostr(x);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Persons := TStringList.Create;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var x : integer;
begin
Memo1.Text := Persons[Listbox1.ItemIndex];
//label1.Caption:=ListBox1.Items[ListBox1.ItemIndex];
x:= 1 + (listbox1.ItemIndex);
label2.Caption:='N_ '+inttostr(x);
//listbox1.items.selected:=

end;

end.

[Stilet]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit2: TEdit;
    Label2: TLabel;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    Persons:TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//if not Assigned(Persons) then
//    Persons := TStringList.Create;
  Persons.Add(edit2.text+memo2.Text);
  Listbox1.Items.Add(Edit2.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ListBox1.ItemIndex>-1 then begin
  Persons.Delete(ListBox1.ItemIndex);
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i:=persons.count-1 downto 0 do if trim(persons[i])='' then persons.delete(i);
for i:=ListBox1.Items.count-1 downto 0 do if trim(ListBox1.Items[i])='' then ListBox1.Items.delete(i);
persons.SaveToFile('C:\Users\SAMSUNG\Desktop\mil.txt');
 ListBox1.Items.savetoFile('C:\Users\SAMSUNG\Desktop\lil.dat');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
persons.loadfromfile('C:\Users\SAMSUNG\Desktop\mil.dat');
ListBox1.Items.loadfromFile('C:\Users\SAMSUNG\Desktop\lil.dat');
end;

procedure TForm1.Edit1Change(Sender: TObject);
var x ,i: integer;
   s : string;
begin
  S:=edit1.text;
with ListBox1 do ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(S));
//Listbox1.Perform(LB_SELECTSTRING, 0, longint(Pchar(Edit2.text)));

x:= 1 + (listbox1.ItemIndex);
label2.Caption:='N_ '+inttostr(x);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Persons := TStringList.Create;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var x : integer;
begin
Memo1.Text := Persons[Listbox1.ItemIndex];
//label1.Caption:=ListBox1.Items[ListBox1.ItemIndex];
x:= 1 + (listbox1.ItemIndex);
label2.Caption:='N_ '+inttostr(x);
//listbox1.items.selected:=

end;

end.

Если и это не помогает то не поможет ничего. Такая у тебя винда. Меняй на другую. 2000-ю или 95-ю.

[alman12]

опять сохраняет в mil.txt так
Edit2Memo2

Edit2Memo2

Edit2Memo2

Edit2Memo2

Edit2Memo2

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

[Utkin]

Persons.Add(edit2.text+memo2.Text);

Проблема здесь. Я писал Вам про это в прошлой теме.

[Stilet]

опять сохраняет в mil.txt так

Ставь другую операционку.

[alman12]

а можна в одном файле сохранят

[Stilet]

опять сохраняет в mil.txt так

Ставь другую операционку.

роблема здесь. Я писал Вам про это в прошлой теме.

Дружище, проблема не там. Проблема в библиотеке badhands.dll
Просто у автора эта библиотека установлена
Отсюда и специфическое сохранение.

а можна в одном файле сохранят

Можно. Но будет тоже самое.