Delphi Forum

Merhaba. İhtiyaçtan dolayı yaptığım bir çalışma. Kodlarını sizlerle paylaşmak istedim. İyi çalışmalar.

---
Bu çalışma, HTML tabanlı web sitelerini kolayca güncelleyebilmek amacıyla ortaya çıkmıştır. İlk iki sürümde site genelinde tamamen XML ve XSL kullanılmıştır. Bu sürümde ise web sitelerinde ...

Aradan uzun zaman geçmiş. Denedim çalıştı. Teşekkür ediyorum.

sanırım şu şekilde olmalı:

Hatamı buldum. Dizinin elemanlarına erişmek için $i değişkeninden 1 çıkarttım. İlk eleman 0, ikinci eleman 1 ... tutuluyor. Dalgınlık.. Yeni kod şöyle;
<?php


$sayilar = range(1, 20);
srand((float)microtime() * 1000000);
shuffle($sayilar);

for ($i=1; $i<=20;)
{
$y=$i-1;
$qe="soru"."$i";$de ...

Merhaba arkadaşlar.

1`den 20`ye kadar olan sayıları içeren diziyi yazdırınca 20. eleman boş çıkıyor. Nedenini anlayamadım. Böyle bir sorunla karşılaşan var mı?

<?php

$sayilar = range(1, 20);
srand((float)microtime() * 1000000);
shuffle($sayilar);

for ($i=1; $i<=20;)
{
$qe="soru"."$i";$de ...

ben de çok uğraştım. dediğim gibi hallettim. kurcalayarak bir tane düzgün çalışan yaptıktan soran onu kopyalayıp değiştirerek kullanıyorum.

slm.aşağıdaki kodla memo`nun içeriğini excel`e aktarıyorum. ancak eğer memo`da enter a basılmışsa bunlar excel`deki hücre de ufak karecikler şeklinde çıkıyor. bunun bir çözümü var mı arkadaşlar?

procedure TForm1.Button1Click(Sender: TObject);
var
excel, workbook, sheet: variant;
begin
EXCEL ...

begin
Close;
SQL.Clear;
SQL.Text:= 'SELECT * FROM kitap where id=32';
ExecSQL;
Edit1.Text:=ADOQuery1.SQL.Text; //--
Open;
end;

editin textine verdiğini sql cümlesini atamışsınız. yani sonuç normal.

sorgu sonucu seçilecek fieldin değerini atamalısınız. şöyle olabilir;

Edit1.Text ...

hazır bileşenler vardır kanımca bunun için. http://www.volgadb.com/ da lookup için dbedit bileşeni var. combo özelliği alıp; çok esnek olmasada filtreleme yapabiliyor.bir ara denemiştim. bi bak ama galiba seçeceği seçenekleri sen giriyosun.

hatırladığım kadarıyla bandın üsütnde sağ tıklayınca streched özelliği var aktif yap. bi de memonun üstünde sağ tıkla strech ve wordwrap özelliklerini aktif yap. memoyu çift tıklayınca gelen pencerede wordwrap`ı tıkla.

gene aynı şeyi yapıyorsa memonun boyutlarıyla biraz oyna. sanırım ben de de ...

selam.

delphideki richedit deki bilgileri yazdırmak istiyorum ancak "access violation at adress ..." hatası veriyor.

procedure TForm1.Button1Click(Sender: TObject);
begin
(frReport1.FindObject('ozet') as TfrRichView).RichEdit.Lines:=RichEdit1.Lines;
frReport1.PrepareReport;
frReport1 ...

a.s.
varsayılan 80 yaptı; ne kadar büyüklükte oduğunu bilmediğim için (mb, kb yada başka bişey) değiştirmedim. ders notlarını tutacağım. storedprocedure kullanarak oldu ama çoğu zaman dediğim hatayı veriyor. ibdatasetlerle kayıt girişi oluyor.

yanılmıyorsam @gkimirti forumda ibstoredproc larda bug ...

merhaba;

Oluşturduğun aciklama (blob-text) alanının Sub Type=1 yaparsan sorun düzeliyor...



maalesef düzelmiyor.(zaten öyle) :( storedprocedure ki tipi varchar yaparsam girilecek veri 80 karakterden sonra kesiliyor.

delphi tarafından storedprocedure kullaranak hallettim. ancak stored ...

slm.
tablom;

deneme
-----------------------
aciklama (blob-text)

CREATE PROCEDURE ACIK (
ACIKLAMA BLOB SUB_TYPE 1 SEGMENT SIZE 80)
AS
begin
insert into deneme (aciklama) values(:aciklama);
suspend;
end

bu procedure ü delphi tarafından şu şekilde çalıştırdığımda "internal error" hatası ...

şöyle bir çözüm buldum gayet düzgün çalışıyor. :arrow:

[code]konular (table)
---------
id (pk)
konu (varchar 10)[/code]

veritabanına; :arrow:

[code]CREATE PROCEDURE IDINCKONULAR (
GELENID INTEGER)
AS
DECLARE VARIABLE SECID INTEGER;
begin
for
select id from konular where id>=:gelenid order by ...