veriyi 01/01/2000 kaydettiğin alan string tipinde olduğu için, date tipinde olmadğı için fastreport tarih dönüşümü yapamayıp hata veriyor.
01/01/2000 kaydettiğin alan string tipinde tanımlanmış, programcı hatası
182 uygun sonuç bulundu
- 23 Oca 2021 10:13
- Forum: Programlama
- Başlık: FastReport Tarihi Tarihten Çıkarma
- Cevaplar: 5
- Görüntüleme: 1514
- 21 Oca 2021 05:23
- Forum: Programlama
- Başlık: Timage den VT ye kayıt [Çözüldü]
- Cevaplar: 6
- Görüntüleme: 3568
Re: Timage den VT ye kayıt [Çözüldü]
Çok kısa yolunu buldum
Bir ara lazım oldu.
Kod: Tümünü seç
query. insert;
image1. picture. loadfromfile('c:\resim. jpg') ;
jvdbimage1. picture. assign(image1. picture. graphic) ;
query. post;
- 08 Oca 2021 01:03
- Forum: Programlama
- Başlık: StringReplace
- Cevaplar: 13
- Görüntüleme: 7571
Re: StringReplace
function Replace(AText, BText, CText: String): Boolean;
var
ReplacedText: String;
begin
ReplacedText := StringReplace(AText, BText, CText, [rfReplaceAll, rfIgnoreCase]);
Result := not SameText(AText, ReplacedText);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aranan,degisen ...
- 07 Oca 2021 01:10
- Forum: Programlama
- Başlık: StringReplace
- Cevaplar: 13
- Görüntüleme: 7571
Re: StringReplace
Arkadaşlar true değer nasıl döndürebiliriz?
Burda True değer döndürmek ihtiyacı hasıl olmuştur, aşağıda yarım kalmış fonksiyon üzerinden replace işleminin yapıldığını yapıldıysa true yapılmadıysa false değer döndürmesinide istiyorum
function string_degis( old: string; new: string ): boolean ...
Burda True değer döndürmek ihtiyacı hasıl olmuştur, aşağıda yarım kalmış fonksiyon üzerinden replace işleminin yapıldığını yapıldıysa true yapılmadıysa false değer döndürmesinide istiyorum
function string_degis( old: string; new: string ): boolean ...
- 05 Oca 2021 03:11
- Forum: Programlama
- Başlık: Fastreport.net
- Cevaplar: 1
- Görüntüleme: 894
- 16 Kas 2020 08:57
- Forum: Programlama
- Başlık: cximage zoom özelliğini ve rect
- Cevaplar: 7
- Görüntüleme: 2304
Re: cximage zoom özelliğini ve rect
bunun için getscreenshot unitinden faydalanacağız.
{ GetScreenShot bu dosya komponenti gösterdiğinde
o komponentin glyph sini bmp jpg ekran görüntüsnü alır }
unit GetScreenShot;
interface
uses Classes,Windows,Controls,JPeg,Forms,Graphics,SysUtils;
procedure SaveScreenShot(FileName: String ...
{ GetScreenShot bu dosya komponenti gösterdiğinde
o komponentin glyph sini bmp jpg ekran görüntüsnü alır }
unit GetScreenShot;
interface
uses Classes,Windows,Controls,JPeg,Forms,Graphics,SysUtils;
procedure SaveScreenShot(FileName: String ...
- 21 Eki 2020 10:57
- Forum: Programlama
- Başlık: Ücretsiz Kullanabileceğim Web App uygulaması ??
- Cevaplar: 1
- Görüntüleme: 969
Ücretsiz Kullanabileceğim Web App uygulaması ??
Yaptığım uygulamam için webden veritabanıma ulaşacak arayüz yapmak istiyorum
tavsiyeleriniz nedir, ücretsiz komponent arıyorum. yeni bir alana el atmak üzereyim :))
90 gün trial demo olarak verilen Raudus web uygulamasına benzer component varmı?
bununla ilgili örneklere pek rastlayamadım, olanlara ...
tavsiyeleriniz nedir, ücretsiz komponent arıyorum. yeni bir alana el atmak üzereyim :))
90 gün trial demo olarak verilen Raudus web uygulamasına benzer component varmı?
bununla ilgili örneklere pek rastlayamadım, olanlara ...
- 19 Eki 2020 10:57
- Forum: Programlama
- Başlık: Combobox veri kaydetme
- Cevaplar: 3
- Görüntüleme: 1301
Re: Combobox veri kaydetme
Editi Post ile beraber yazmışsın, yani işlem yapılmış fakat veritabanının bundan haberi olmamış
Bir de aşağıdaki gibi denerseniz
procedure TForm7.Button1Click(Sender: TObject);
var
daireNo: variant;
begin
DataModule8.Qaidat.First;
while not DataModule8.Qaidat.EOF do
begin
DataModule8.Qdaire ...
Bir de aşağıdaki gibi denerseniz
procedure TForm7.Button1Click(Sender: TObject);
var
daireNo: variant;
begin
DataModule8.Qaidat.First;
while not DataModule8.Qaidat.EOF do
begin
DataModule8.Qdaire ...
- 12 Eki 2020 03:09
- Forum: Programlama
- Başlık: MS Word içerisinde kelime düzenleme
- Cevaplar: 3
- Görüntüleme: 1273
Re: MS Word içerisinde kelime düzenleme
Boş bir uygulama açın
uygulamayı doc dosyasıyla aynı klasöre koyun, değişmesi gereken E-mail ve E-Posta stringi bulunan bir test dosyası yazıp kaydedin ve uygulamayı çalıştırıp butona basın
word dosyasını açtığınızda E-mail textinin E-posta ile değiştiğini göreceksiniz.
USES COMOBJ eklemeyi ...
uygulamayı doc dosyasıyla aynı klasöre koyun, değişmesi gereken E-mail ve E-Posta stringi bulunan bir test dosyası yazıp kaydedin ve uygulamayı çalıştırıp butona basın
word dosyasını açtığınızda E-mail textinin E-posta ile değiştiğini göreceksiniz.
USES COMOBJ eklemeyi ...
- 01 Eki 2020 08:28
- Forum: Programlama
- Başlık: Seçilen Veri Tabanına Göre Bağlantı Sağlanması
- Cevaplar: 8
- Görüntüleme: 3149
Re: Seçilen Veri Tabanına Göre Bağlantı Sağlanması
Üstat,
Öncelikke Veritabanı ile bağlantı sağlayan tüm ekranları kapatman iyi olur...
Listboxtan İlgili Yıl ( veritabanı ) seçtikten sonra ( BAĞLAN BUTONU altında )
fdconnection1.Connected := FALSE;
fdconnection1.Params.Database := ExtractFilePath(Application.ExeName) +'DATA/' + listbox1 ...
- 30 Haz 2020 01:43
- Forum: Paket Programlar
- Başlık: Ip ve MAC adresi tarama
- Cevaplar: 12
- Görüntüleme: 40583
Re: Ip ve MAC adresi tarama
Delphi7 de bile kullanabileceğiniz Formatta getirdim.
Projemin Clientlerini Serverimin Network Traffic Monitoründe görüntülemek için kullanmıştım.
https://s4.dosya.tc/server11/vz4h0l/Ip ... .rar.html
Projemin Clientlerini Serverimin Network Traffic Monitoründe görüntülemek için kullanmıştım.
https://s4.dosya.tc/server11/vz4h0l/Ip ... .rar.html
- 19 Haz 2020 11:01
- Forum: Programlama
- Başlık: popupmenu ile dbgrid üzerinden ödeme yapma işlemi
- Cevaplar: 5
- Görüntüleme: 1858
Re: popupmenu ile dbgrid üzerinden ödeme yapma işlemi
İnputbox kullanımı için
http://www.delphibasics.co.uk/RTL.asp?Name=inputbox
var
value : string;
begin
repeat
value := inputbox('Miktarı girin', 'giriş', '0');
until value <> '';
query.edit;
query.fieldbyname('rakamsal_alan_borc_sutunu').value := value; // inputboxtaki value
query.post ...
http://www.delphibasics.co.uk/RTL.asp?Name=inputbox
var
value : string;
begin
repeat
value := inputbox('Miktarı girin', 'giriş', '0');
until value <> '';
query.edit;
query.fieldbyname('rakamsal_alan_borc_sutunu').value := value; // inputboxtaki value
query.post ...
- 11 Haz 2020 09:31
- Forum: Programlama
- Başlık: UTF8 CSV FILE OLUŞTURMA
- Cevaplar: 9
- Görüntüleme: 3434
Re: UTF8 CSV FILE OLUŞTURMA
Elektriğin 5. Şarzı :N)
O halde Silah Şarjörlerini de Şarzör olarak değiştirmeleri gerekecek
Türk dili yaşayan bir dil. Gözükme doğru bir ifade. Fakat dil kurallarına aykırı bir kelime halkın benimsemesi ve kolayına gelmesi nedeniyle zamanla doğruya dönüşebiliyor. Korkum odur ki TDK bir gün ...
O halde Silah Şarjörlerini de Şarzör olarak değiştirmeleri gerekecek
Türk dili yaşayan bir dil. Gözükme doğru bir ifade. Fakat dil kurallarına aykırı bir kelime halkın benimsemesi ve kolayına gelmesi nedeniyle zamanla doğruya dönüşebiliyor. Korkum odur ki TDK bir gün ...
- 15 May 2020 11:22
- Forum: Programlama
- Başlık: Memo1 satur değerinin ilk 8 karakterini integer olarak atamak
- Cevaplar: 2
- Görüntüleme: 1325
Re: Memo1 satur değerinin ilk 8 karakterini integer olarak atamak
Bunu bi deneyin
Kod: Tümünü seç
VAR
I,j:INTEGER;
kopyalanan:string;
BEGIN
for i:=0 to memo1.lines.count-1 do begin
kopyalanan := copy((Memo1.lines.strings[i]),0,8);
memo2.lines.add( kopyalanan); // burası text string variable
// veya j:=strtoint(kopyalanan); //burası da integer variable yeri
end;
END;
- 14 May 2020 04:09
- Forum: Makale ve İpucu
- Başlık: Firebird Güncelleme Yöntemi
- Cevaplar: 3
- Görüntüleme: 19193
Re: Firebird Güncelleme Yöntemi
Peki Hangi Kaydın değiştiğini nasıl bulabiliriz?
Mesela ID = 100 nolu kaydımızı editledik , ID =100 de adsoyad kolonunda bulunan Mehmet i Tüm Clientlarda , Örn Showmessage ile nasıl gösterebiliriz
Mesela ID = 100 nolu kaydımızı editledik , ID =100 de adsoyad kolonunda bulunan Mehmet i Tüm Clientlarda , Örn Showmessage ile nasıl gösterebiliriz