Delphi Forum

Niğde/Bor da Bir köyde Sınıf öğretmeni olarak çalışmaktayım.Bilgisayarı ,program hazırlamayı ve Delphi yi çok seviyorum.Herkese başarılar diliyorum.

Sayın rsimsek Önerilerinizi Uyguladım ve uygulayacağım.Hatayı buldum Veri tabanı olarak BDE kullanıyorum. SQL'de ve Programda bütün SEC1YSO alanlarına boşluk kontrolü koydum.Böylece işlemim tamamlandı.Çok Teşekkür Ederim.Elimdeki programı degerlendirmenizi istiyorum.Eger ilgilenirseninz size nasıl ...

Sayın rsimsek Bey inanın her yolu denedim ama sonuç aynı....
Kodun son ve geniş hali Şöyle;

if (Donem2.Query1.fieldByName('SEC1YSO').AsString='') then
begin
qrlabel136.caption:='';
qrlabel162.Caption:='';
qrlabel150.Caption:='';
end
else
begin
if Donem2.Query1SEC1YSO.AsInteger=5 THEN qrlabel136 ...

Kodu aşağıdaki şekilde düzelttim ama yine aynı sonuç ÇALIŞMIYOR...qrlabel150'i NumStr function'u içinde kullanıyorum hata buradan kaynaklanabilir mi? hesaplamayı [((Donem2.Query1SEC1YSO.AsInteger)*(form2.Table1DS11.AsInteger));]işlemini sabitlere atayıp yaptım değişiklik olmadı

if Donem2 ...

Aşağıdaki koddaki hatayı bulamadım.Veri tabanından SEC1YSO alanı için de veri varsa hata vermiyor SEC1YSO alanını içi boşsa hata veriyor.Bir mantıksal hata var ama nerede?Yardımlarınız için şimdiden teşekkürler


if (Donem2.Query1SEC1YSO.Text)=' ' then
begin
qrlabel136.Caption:=' ';
qrlabel150 ...

Delphi 6 ile quickreport kullanıyorum.qrlabel ile yatay olarak yazdığım yazıyı dikey olarak nasıl yazabilirim?veya bunu yapabileceğim bir component bulabilir miyim? soldan sağa -sağdan sola oluyorda yukardan aşağıya-aşağıdan yukarıya neden olmuyor?

Sayın rsimsek beye ve diğer arkadaşlara çok teşekkürler.
Kullandığım procedure ?ü aşağıdaki gibi değiştirince istediğim sonucu aldım.

procedure TForm1.Button1Click(Sender: TObject);
var
sayi:integer;
bas:integer;
begin
Label1.Caption := NumStr(StrToCurr(Edit1.Text));
sayi := trunc(strtoint(edit1 ...

Sayıları yazı ile yazdırmak için aşağıdaki kodu kullanıyorum.Fakat sayıların basamak değerlerini ayrı ayrı yazdırmak istiyorum.Örnek:26 sayısını yazarken farklı label içine Yirmi ve altı olarak yazsın.Bu işlem sadece yüze kadar olan sayılar için geçerli olacak.İşin içinden çıkamadım.
const'taki ...

Yardımlarınız için teşekkürler :Yeni Başlayan biri olarak Önerileriniz Benim için önemli...Yararlanmaya çalışacağım...

Dbedit?e Checkbox ile değer atıyorum.Atadığım değerleri veri tabanına kaydedemiyorum.Bunu nasıl başarabilirim.
procedure TNotdefteri.Button1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
table1.Open;
table1.edit;
dbedit175.text:='Orta';
dbedit176.text:='Orta';
Table1DAV1.Text ...