PC-HELP.CZ

Zdarvim, měl jsem tu téma 'Automatický název souboru v Delphi', díky Vašim radám mám už skoro celou aplikaci hotovou, ale narazil jsem na další problém Proto prosím jestli by jste mi mohli ještě poradit. Jde o to, že pomocí následujícího kódu uložím a zase načtu položky v ListBoxu, to mi sice fachčí ale pak mám na ty položky navázáno to vytvoření složky (složka má název vybrané položky) To všechno by bylo v pohodě ale problém tkví v tom, že složka se vytváří i z položek v ListBoxu které nejsou vybrány... a to je ten problém... že celý proces funguje správně jen když je v ListBoxu položka jedna... pokud jsou dvě, aplikace vytvoří složku s názvem obou položek najednou... Věřím že to bude zase jen prkotina. Děkuji moc všem předem.

[syntax lang=delphi ] procedure TForm1.Nacist_seznamClick(Sender: TObject);
begin
Seznam.Items.LoadFromFile('Seznam.txt')
end;


procedure TForm1.Ulozit_seznamClick(Sender: TObject);
Var
Soubor2:TextFile;
begin
AssignFile (Soubor2, 'Seznam.txt');
Append(Soubor2);
CloseFile(Soubor2);
seznam.Items.SaveToFile('Seznam.txt');
end;
[/syntax]

Já fakt Delphi neumim, jen ti řeknu postup.
Ve VB ve škole jsme taky dělali s nějakým tím ListBoxem a procházeli jsme to tam cyklem For jakožto cyklem s pevným počtem opakování.
prostě vemeš položku po položce a zapíšeš ji na každý řádek v souboru.
Každá položka v listboxu má svůj index, takže první položka má index 0, druhá 1, ... toho můžeš využít tím že tam dáš právě ten For, hodnota proměnné se vždy zvětší o 1, pokud není dáno jinak
[syntax lang=delphi]
for i:=0 to ListBox.Items.Count-1 do begin
zapsat := ListBox.Items[i];
end;
[/syntax]
za to zapsat:= musíš dát ten příkaz na zapsání do souboru v VB: Write #1,zapsat
nevím jak se zapisuje do souboru v Delphi :(
no snad ti to pomůže...

Nevím jestli jsem to dobře pochopil. String vybraný položky zjistíš třeba takhle:
[syntax lang=delphi]
if ListBox1.ItemIndex >-1 then
Caption:=ListBox1.Items.Strings[ListBox1.ItemIndex];
[/syntax]

Už jsem asi zapoměl co chceš :-)
Vytvořit složku s názvem toho itemu z listboxu ?
No však tim cyklem For jak je výše uveden...
a v tělě toho cyklu bude ten kód na vytvoření složky, já Delphi neumim takže nevim jakej to je příkaz na vytvoření složky.

To Sender: naprosto úžasný!!! Opět mi odpověď pomohla a funguje. Moooc děkuji. Děkuji i ostatním.