ATNEL tech-forum 2018-04-03T20:22:34+01:00 https://forum.atnel.pl/feed.php?f=66&t=20546&mode 2018-04-03T20:22:34+01:00 2018-04-03T20:22:34+01:00 https://forum.atnel.pl/viewtopic.php?t=20546&p=206438#p206438 <![CDATA[Re: Pomoc przy zapisie ListBox do pliku ini]]> Jaglarz napisał(a):

Właśnie zrobiłem :lol: :D

:lol: aaaa rozumiem, że to ty pod innym nickiem założyłeś ten wątek :lol: :lol: to ok :lol:

-- 1 minucie --

wracając do meritum i pytania autora ;)

[syntax=delphi]ListBox.Items.SaveToFile( 'ścieżka_i_nazwa_pliku' );[/syntax]

więc już chyba nie muszę mówić o odwrotnej funkcji

[syntax=delphi]ListBox.Items.LoadFromFile....[/syntax]

Statystyki: Napisane przez mirekk36 — 3 kwi 2018, o 20:22

]]> 2018-04-03T17:58:07+01:00 2018-04-03T17:58:07+01:00 https://forum.atnel.pl/viewtopic.php?t=20546&p=206435#p206435 <![CDATA[Re: Pomoc przy zapisie ListBox do pliku ini]]> :D

Statystyki: Napisane przez Jaglarz — 3 kwi 2018, o 17:58

]]> 2018-04-03T17:57:21+01:00 2018-04-03T17:57:21+01:00 https://forum.atnel.pl/viewtopic.php?t=20546&p=206434#p206434 <![CDATA[Re: Pomoc przy zapisie ListBox do pliku ini]]> panie kolego - najpierw to edytuj swój post i sformatuj odpowiednio kod - tym bardziej że masz poradnik na forum jak to zrobić: topic7402.html - tylko dlatego, że kolega jest nowy na forum - to nie udzielam warna ok?

Statystyki: Napisane przez mirekk36 — 3 kwi 2018, o 17:57

]]> 2018-04-03T15:54:24+01:00 2018-04-03T15:54:24+01:00 https://forum.atnel.pl/viewtopic.php?t=20546&p=206431#p206431 <![CDATA[Pomoc przy zapisie ListBox do pliku ini]]> Oto kod programu

[syntax=delphi]unit Unit4;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, sBitBtn,
sListBox, sSkinProvider, sSkinManager,ShellAPI,IniFiles;

type
TForm4 = class(TForm)
sknmngr1: TsSkinManager;
sknprvdr1: TsSkinProvider;
ListBox: TsListBox;
OpenDialog1: TOpenDialog;
sbtbtn1: TsBitBtn;
sbtbtn2: TsBitBtn;
sBitBtn1: TsBitBtn;
procedure sbtbtn1Click(Sender: TObject);
procedure sbtbtn2Click(Sender: TObject);
procedure sBitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ListBoxDblClick(Sender: TObject);
private

{ Private declarations }
public

{ Public declarations }
end;

var
Form4: TForm4;
Ini:TIniFile;
implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
//Odczyt ini
var
i, max: Integer;
sTmp: String;
begin
ini := tinifile.Create(ExtractFilePath(Application.ExeName) + 'Ulubione programy.ini');
try
max := ini.ReadInteger('Ulubione programy','dir',-1);
ListBox.Items.Clear;
for i := 0 to max do
begin
sTmp := ini.ReadString('Ulubione programy','dir' + IntToStr(i), '');
if sTmp <> '' then ListBox.Items.Add(sTmp);
end;
finally
FreeAndNil(ini);
end;

end;

procedure TForm4.FormDestroy(Sender: TObject);
//zapis ini
var
i: Integer;
begin
ini := tinifile.Create(ExtractFilePath(Application.ExeName) + 'Ulubione programy.ini');
try
ini.WriteInteger('Ulubione programy','dir',ListBox.Items.Count-1);
for i:=0 to ListBox.Items.Count-1 do
ini.WriteString('Ulubione programy', 'dir'+ IntToStr(i),ListBox.Items[i]);
finally
FreeAndNil(ini);

end;
end;

procedure TForm4.ListBoxDblClick(Sender: TObject);
begin
with ListBox do if ItemIndex >-1 then ShellExecute(Self.WindowHandle,'open',PChar(Items[ItemIndex]),nil,nil,SW_SHOWNORMAL);
end;

procedure TForm4.sBitBtn1Click(Sender: TObject);
begin
if Opendialog1.execute then
ListBox.Items.Add(ExtractFileName(OpenDialog1.FileName));
end;

procedure TForm4.sbtbtn1Click(Sender: TObject);
begin
with ListBox do if ItemIndex >-1 then ShellExecute(Self.WindowHandle,'open',PChar(Items[ItemIndex]),nil,nil,SW_SHOWNORMAL);

end;

procedure TForm4.sbtbtn2Click(Sender: TObject);
begin
ListBox.Items.Delete(ListBox.ItemIndex);

end;
end.[/syntax]

Statystyki: Napisane przez zimol81 — 3 kwi 2018, o 15:54

]]>