Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
Kdo to byl na stary poradne, jak vyhrozoval, ze nam vsem zprogramuje maily?
kubik 13.03.2006 14:59
kubik
To byl pochopitelně kolega M.A.X. :-)
ApoCalypse 13.03.2006 15:53
ApoCalypse
jj na to sem tím názvem taky narážel:-D
MM_tank 13.03.2006 16:47
MM_tank
Ja jen ze to se mnou skublo a musel jsem se podivat poradne, kdo ten dotaz vlastne psal :)
kubik 13.03.2006 17:09
kubik
A nasli radcove, nasli? Ja jsem taky sel hledat.. a nenasli.. vypada to, ze m.a.x. se uplne propadl… poslední
ApoCalypse 14.03.2006 14:31
ApoCalypse
Oči mě pálí hlava jak po deseti a zatím jsem nic nezprogramoval:-?. Lidi dobří pomozte nemůžu číst t…
MM_tank 14.03.2006 00:56
MM_tank
tak to máš jedno jestli jsou 4 nebo kolik, to se dělá rekurzí, viz: 00013.php Ale aby pravdu, řekl n… nový
AZOR 14.03.2006 01:07
AZOR
já se snažil to napsat ručně to procházení adresáři ale nějak to nešlo -podle mě dost složité.tak se… nový
MM_tank 14.03.2006 01:19
MM_tank
a proč nezustaneš u toho TStrings? To je "něco" jako array of string ;-) nový
AZOR 14.03.2006 01:48
AZOR
[pas]procedure TForm1.Button1Click(Sender: TObject); var Marta:TStrings; begin Marta := TStringsList… nový
AZOR 14.03.2006 01:59
AZOR
Napis mi co presne potrebujes nový
Jan Fiala 14.03.2006 07:42
Jan Fiala

Oči mě pálí hlava jak po deseti a zatím jsem nic nezprogramoval:-?. Lidi dobří pomozte nemůžu číst ty tlustý manuály...

Nejdřív jsem se pokoušel v Lazarusovi zprogramovat:i: prohledávání souborů a adresářů /i vícenásobných -potřebuju seznam souborů s cestou a velikost/ jenže jsme nebyli kámoši. Našel jsem doma potom tu delphi - no jenže prostě udělat to prolízání a výpis přes findfirst a findnext je docela problém, protože když jsou třeba 4úrovně adresářů tak sem byl v pr...:x:

našel jsem na to thahfindfiles.zip, po půl hodině dostal do delphi -prej pět minut pche.. ale potřeboval bych help jak do z výpisu - z listboxu si to nacpat do proměnných /pole/. nebo aspoň jak to uložit do souboru a pak už si to snad načtu.

prostě tohle nějak ošéfovat ListBox1.Items := hahFindFiles1.SearchForFiles; abych to dostal po kouscích do pole.
thx

[pas]procedure TForm1.Button1Click(Sender: TObject);
var Marta:TStrings;
begin
Marta := TStringsList.Create; // vytvoření
Marta :=ListBox1.Items; // výsledky do Tstrings
showmessage('Soubor číslo 13: '+Marta[12]); // a pracuješ s tim jako s normálním polem
showmessage(ListBox1.Items[12]);
Marta.Free; //uvolnění
end;
[/pas]

Zpět do poradny Odpovědět na původní otázku Nahoru