Předmět Autor Datum
Projekt Lazarus (takove jakoby Delphi) www.lazarus.freepascal.org Jinak si muzes zdarma stahnout Esp…
Jan Fiala 13.03.2006 10:12
Jan Fiala
dík. rychlost odpovědi v podstatě jako bych Ti napsal na icq:-D
MM_tank 13.03.2006 10:22
MM_tank
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
Nenapsal jsi programovací jakzyk, takže určitě NetBeans nebo Eclipse.8-) Do exe to pak přeložíš něja…
AZOR 13.03.2006 15:05
AZOR
Ak by si mal radsej C++ tak myslim ze devcpp je zdarma.
MM.. 13.03.2006 15:10
MM..
Borlandi nabízeli a možná pořád nabízí nějakou verzi Delphi jen za registraci, něco jako studentská.…
Pavel 13.03.2006 15:27
Pavel
Dalsi moznost na C++ je treba Code::Blocks a odvozeny varianty.
kubik 13.03.2006 16:27
kubik
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…
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…
MM_tank 14.03.2006 01:19
MM_tank
a proč nezustaneš u toho TStrings? To je "něco" jako array of string ;-)
AZOR 14.03.2006 01:48
AZOR
[pas]procedure TForm1.Button1Click(Sender: TObject); var Marta:TStrings; begin Marta := TStringsList…
AZOR 14.03.2006 01:59
AZOR
Napis mi co presne potrebujes
Jan Fiala 14.03.2006 07:42
Jan Fiala

Nenapsal jsi programovací jakzyk, takže určitě NetBeans nebo Eclipse.8-)
Do exe to pak přeložíš nějakou utilitkou. (ne, že by se takto měla zabíjet
java, ale... ). Jinak v obou mužeš použít libovnolný jazyk.;-)
(ovšem už bez naklikávání komponent na form)

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