Delphi Forum

merhaba arkadaşlar

var
r:string;
x:double;
begin
x:=7.09;
r :=FormatFloat('###.00',(( x- 6.5)/2 + 3.5));
showmessage(r);
end;

yukarıdaki program 3.795 değerini 3.80 yapması gerekirken malesef 3.79 donduruyor.
x yerine 7.09 değerini yazdığımda ise tam sonucu döndürüyor.
sorun neden kaynaklanıyor ...

re : sair
sek.top:=detailband1.Top+qrshape1.top+qrshape1.Height+10;

QuickReportun üzerinde QrShape diye bir nesne olmadığı için hata alıyorsunuz.... Sek.Top:=15 gibi doğrudan değer atayın


bunları yazmışsınız ama benim qrshape1 elemanım var.
ona göre hiamlamaya çalışıyorum.
ama salt kodla ...

hmm ayni kodu detail bandda yaziyorum hata veriyor
niye acaba


procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);


var
sek:TQRShape;
begin
sek:=TQRShape.Create(Self);
sek.Parent:=DetailBand1;
sek.Name:='sss';
sek.top:=30;
sek.Width:=700;
sek.Height:=15;
sek ...

pardon şairin mesajını görmemişinm.
onunkini yapınca oldu.

var
Form1: TForm1;
sek:TQRShape;

implementation

{$R *.dfm}

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
sek:=TQRShape.Create(self);
sek.Name:='sss';
sek.top:=detailband1.Top+qrshape1.top+qrshape1.Height+10;
sek.Width:=700;
sek.Height:=1;
sek ...

onu denemiştim mantıklı olarak
acces violation hatası veriyor malesef
yani paren olarak onu göstermeliyim ama neden veriyor anlamadım

arkadaşlar.
ben quickreport üzerindeki detail band üzeirnde programı çalıştırdığımda belirtttiğim sayıda componenti detail ban üzerinde görmek istiyorum.
ancak
create ettigim component form üzerinde gözüküyor.
create işlemini
detail bandin before print olayına yazdım.

sek:=TQRShape.Create(Self ...

abi bu sorunu hallettim. o gun hallettim. bu dosya zeus.zip içindeymiş.
system klasörünün altına atınca sorunsuz çalışıyor.

selamlar.
ben delphiden mysql'e zeus komponenti ile baglanmaya calısıyorum. Ancak soyle bir hata veriyor.

Dynamic library libmysqlclient.so not found.

nasıl halledebilirim.