Ĺadny brzuch
Witam jak zmienić zawartość zaznaczonego itema na to co jest w edicie?? :)
Witam jak zmienić zawartość zaznaczonego itema na to co jest w edicie?? :) Innych problemów to nie masz? :rolleyes:with ListBox1 do if Count>0 then Items[ItemIndex]:=Edit1.Text;
Użytkownik Cyrkiel edytował ten post 20 październik 2006, 14:28
Mam ;) Szukam czegoś pogodnego do StreamWriter żebym dał sobie coś ala:
var sw:StreamWriter; begin sw:=StreamWriter.Create('plik'); sw.WriteLine('name'); sw.WriteLine('kame'); ... sw.Close;
Że tak powiem łatwiej się robi w NET w Delphi jest więcej procedur które ułatwiają życie :) Choć części tez brakuje ;( więc 1:1 :P
I jeszcze jedno :) Da się w łatwy sposób pobrać listę katalogów z danego folderu i zapisać do listboxa ;)?? :)
Użytkownik strefacst edytował ten post 20 październik 2006, 16:27
Da się w łatwy sposób pobrać listę katalogów z danego folderu i zapisać do listboxa ??
Da się. :P
I żeby nie było, że spamuję, masz tu kod:
var sr: TSearchRec; wynik: integer; katalog: string; //nazwa katalogu, na koncu backslash ("/") begin wynik := findfirst(katalog+'*.*', faAnyFile, sr); while wynik=0 do begin if ((sr.Attr and faDirectory)=faDirectory) and (sr.Name<>'.') and (sr.Name<>'..') then begin //tu dodajesz, bodaj ListBox1.Items.Add, czy cos takiego :D end; wynik := FindNext(sr); end; end;
Oooo thx pozostał mi jeszcze problem z StreamWriter :)
Zaraz, zaraz... Nie wiem dokładnie, jak jest z tym StreamWriter w NET, ale nie możesz użyć TStringList w Win32? :)
//Tak patrząc po przykładzie mi się skojarzyło :D
Użytkownik pbnan edytował ten post 20 październik 2006, 18:47
ni i o to mi chodziło :):):)
No ale znów mam problem :( tym razem chodzi o kodowanie
Mam kod w Net
function Encrypt(const cleanString: string): string; var ue : UnicodeEncoding; clearBytes, hashedBytes : array of Byte; begin ue := UnicodeEncoding.Create; clearBytes := ue.GetBytes(cleanString); hashedBytes := (CryptoConfig.CreateFromName('MD5') AS HashAlgorithm).ComputeHash(clearBytes); Result := BitConverter.ToString(hashedBytes); Result := Result.Replace('-',System.String.Empty); end;
i w Win 32 komponent md5.pas (http://www.fichtner.net/delphi/md5.delphi.phtml)
No i teoretycznie powinny w wyniku dawać to samo ale tak nie jest np wyraz "demo" zakodowany pierwszym:
3345A578AB6869F76EA3CFAEFC55C4CB
a drugim
fe01ce2a7fbac8fafaed7c982a04e229
No i nie mam jak z poziomu strony porównać tego :/ Wie ktoś co z tym fantem zrobić?? :) (a już się cieszyłem że koniec problemów ;/ )
Użytkownik strefacst edytował ten post 20 październik 2006, 20:34
Z tego co przed chwilą sprawdziłem, to poprawnym hashem ciągu "demo" jest fe01ce2a7fbac8fafaed7c982a04e229 - online hasher jest np. tutaj.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Witam jak zmienić zawartość zaznaczonego itema na to co jest w edicie?? :) Innych problemów to nie masz? :rolleyes:with ListBox1 do if Count>0 then Items[ItemIndex]:=Edit1.Text;
Użytkownik Cyrkiel edytował ten post 20 październik 2006, 14:28
Mam ;) Szukam czegoś pogodnego do StreamWriter żebym dał sobie coś ala:
var sw:StreamWriter; begin sw:=StreamWriter.Create('plik'); sw.WriteLine('name'); sw.WriteLine('kame'); ... sw.Close;
Że tak powiem łatwiej się robi w NET w Delphi jest więcej procedur które ułatwiają życie :) Choć części tez brakuje ;( więc 1:1 :P
I jeszcze jedno :) Da się w łatwy sposób pobrać listę katalogów z danego folderu i zapisać do listboxa ;)?? :)
Użytkownik strefacst edytował ten post 20 październik 2006, 16:27
Da się w łatwy sposób pobrać listę katalogów z danego folderu i zapisać do listboxa ??
Da się. :P
I żeby nie było, że spamuję, masz tu kod:
var sr: TSearchRec; wynik: integer; katalog: string; //nazwa katalogu, na koncu backslash ("/") begin wynik := findfirst(katalog+'*.*', faAnyFile, sr); while wynik=0 do begin if ((sr.Attr and faDirectory)=faDirectory) and (sr.Name<>'.') and (sr.Name<>'..') then begin //tu dodajesz, bodaj ListBox1.Items.Add, czy cos takiego :D end; wynik := FindNext(sr); end; end;
Oooo thx pozostał mi jeszcze problem z StreamWriter :)
Zaraz, zaraz... Nie wiem dokładnie, jak jest z tym StreamWriter w NET, ale nie możesz użyć TStringList w Win32? :)
//Tak patrząc po przykładzie mi się skojarzyło :D
Użytkownik pbnan edytował ten post 20 październik 2006, 18:47
ni i o to mi chodziło :):):)
No ale znów mam problem :( tym razem chodzi o kodowanie
Mam kod w Net
function Encrypt(const cleanString: string): string; var ue : UnicodeEncoding; clearBytes, hashedBytes : array of Byte; begin ue := UnicodeEncoding.Create; clearBytes := ue.GetBytes(cleanString); hashedBytes := (CryptoConfig.CreateFromName('MD5') AS HashAlgorithm).ComputeHash(clearBytes); Result := BitConverter.ToString(hashedBytes); Result := Result.Replace('-',System.String.Empty); end;
i w Win 32 komponent md5.pas (http://www.fichtner.net/delphi/md5.delphi.phtml)
No i teoretycznie powinny w wyniku dawać to samo ale tak nie jest np wyraz "demo" zakodowany pierwszym:
3345A578AB6869F76EA3CFAEFC55C4CB
a drugim
fe01ce2a7fbac8fafaed7c982a04e229
No i nie mam jak z poziomu strony porównać tego :/ Wie ktoś co z tym fantem zrobić?? :) (a już się cieszyłem że koniec problemów ;/ )
Użytkownik strefacst edytował ten post 20 październik 2006, 20:34
Z tego co przed chwilą sprawdziłem, to poprawnym hashem ciągu "demo" jest fe01ce2a7fbac8fafaed7c982a04e229 - online hasher jest np. tutaj.