Delphi Forum

sorun çözülmüştür iki yerde free yapmışım ondan kaynaklanıyormuş

Burayı bir incele istersen

Dosyaları taşırken sıkıntı yok fakat sonra 50 kadar dosyayı sıkıştırıyor sonra program çalışmayı durdurdu hatası verip kapanıyor kullandığım fonsiyon şu şekilde Function Dosyaal(FileName : String;Dosya: String) : Boolean; var Listeler : TStringList; dosyam : String; c,zip:Tmemorystream; NewP : Strin...

zlib kullanıyorum dosyayı sıkıştırmada açmada problem yok yanlız decompress ederken dosyaya yazmak degilde string'e aktarmak istiyorum procedure TForm1.Decompress(const ASrc, ADest: string); var B: array[1..2048] of byte; R: Integer; vSrc: TStream; vDest: TStream; vDecompressor: TStream; begin if no...

Delphi 7 kullanıyorum ama kaç gündür bir problem var çalışmalarımın yedeklerini alıyorum başka klasörlere
ama düzenledigim kodlar diger bütün yedekleredeki '.pas dosyalarada uygulanıyor neden acaba
varmı böyle birşey yaşayan ne yapabilirim.

dediginizi yapıyorum zaten ama aynı isimli dosyadan ikiden fazla varsa yine oluyor yani dosya var olduğu sürece dosya sonuna bir harf eklesin

Diyelimki elimde 10 adet aynı isimli dosya var Mesela : yedek.txt gibi aynı isimde hepsi

ben bunları başka klasöre MoveFile fonksiyonuyla taşıyorum ama aynı dosya varsa hadi ikinci dosyayıda RenameFile komutuyla
hallediyorum ama digerleri nasıl yapabilirim dosya varsa farklı isimler versin

evet haklısın şimdi düzelltim teşşekürler

text dosyasına yazmak için bir procedure yazdım text dosyasını yazıyorum ama şifrelemeye gelince şifrelemiyor. function Sifrele(sSomeString : string) : string; var i : longint; s : string; begin s := sSomeString; for i := 1 to Length(sSomeString) do s[i] := Char(Byte(sSomeString [i]) +i); Result := ...

döngüyü başka bir formdan syncronize ederek alıyorum bu forma

değişen birşey yok aynı

Ben Listview' e ekleme yapıyorum tahminen 5000 giriş var, ama baya zaman alıyor 2 dak gibi daha hızlı nasıl yükleyebilirim. Kullandığım kod şu şekilde, normalde ne tavsiye edersiniz bu normalmi veya başka yolu varmı. var i : Integer; Item: TListItem; begin ListView1.Items.BeginUpdate; try item:= lis...

herkese teşşekür ederim sayenizde çözdüm

Dll bulunan dizini nasıl alabilirim ExtractFilePath(ParamStr(0)) veya ExtractFilePath(Application.ExeName) gibi

Form runtime anında oluşturulan listview clear nasıl yapamadım listview.clear yapamıyorum temizlemiyor listview'i procedure TForm1.FormCreate(Sender: TObject); var NewColumn: TListColumn; ListItem: TListItem; ListView: TListView; FileDate: Integer; begin ListView := TListView.Create(Self); ListView....