Forum
Aktif konular
Üyeler
Kurallar
Arama
Pascal Kaynak Döküman Yardım Lazım Pascal Kaynak Döküman Yardım Lazım
-
Sorunların çoğunu çözdüm hallettim. 30 satırlık kod şu anda 221 satır oldu ancak bazı yerlerde takılmış bulunmaktayım.
Mesela;
c'de falan
if (hede==true && hödö == false)
yapGitsin;
şeklinde yapılan kontrolü yapamıyorum çünkü && operatörü hata veriyor, and diyorum o da hata veriyor. Buna bi çözüm bulmalıyım :/
-
neyse hallettim
if (hede) and (hödö) then
yapGitsin;
olacakmış. Parantezler olmadan olmuyomuş
wasd tarafından 05/Mar/13 11:47 tarihinde düzenlenmiştir -
sen sor ben kaynak dokumanim
-
Harcanan benzinin hesabını yapmadığım için alınan benzin aynen duruyor, haliyle ortalama yakıt tüketimi hesabıda yok.(Şu an görebildiğim eksikler bunlar) Nesne kullanmam lazım ama ben düz yazdım, bazı fonksiyonlarla değişkenleri bi yapı içinde toplayınca bitmiş olcak.
Ondalık sayıların gösteriminde sıkıntı var; 6,000000E01 gibi upuzun yazıyo, bunun hakkında sorabilirim. Şu anda herşey roundlanmış durumda :D
pascalda nesne konusunu bilmiyorum, diğer dillerdeki gibi mi kullanıcam? Yani
---
type
begin
yolBilgisayari = object;
degiskenler
fonksiyonlar
end;
-----
şeklinde tanımlayıp daha sonrada
----
var
yolBilgisayariNesnesi : yolBilgisayari;
----
yapıp
---
yolBilgisayariNesnesi.Fonksiyon;
----
şeklinde mi kullanıcam? -
burdan ulaşabilirsiniz
http://hotfile.com/dl/78315332/e0fe707/delphi7(kitap).pdf
-
Kolay gelsin Müritler;
Belki bunun yeri burası değil Elimde güzel merkez bankasını delphi ye atan kod var belki birinin işini görür ben çok uğraştım benden sonrakiler böyle zahmete girmesin
Şimdi
Türkiye standarları ondalık basamıklı sayılar , (virgül) ile ayrılır.
ama
Avrupa standartı . (nokta) ile ayrılır
şimdi aşağıdaki kodlamada kurları nokta ile alıyor bunu virgülle çeviriyor
procedure TForm3.BitBtn6Click(Sender: TObject);
var
s,alis,satis,aranan:string;
yer,i:integer;
begin
try
form8.servis.Insert;
bildirimtarihi.Date:=date;
randevutarihi.Date:=date;
s:=IdHTTP1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
aranan:='ABD DOLARI';
for i:=0 to 1 do
begin
yer:=pos(aranan,s);
if yer=0 then
begin
//StatusBar.SimpleText:='Kur Bilgisi Alınamadı';
exit;
end
else
begin
yer:=yer+length(aranan);//bulunan yerden sonraki kısmı al
s:=copy(s,yer,length(s)-yer); //boşlukları at
s:=Trim(s);//sonraki basamak kura ait alış fiyat bilgi
alis:=StringReplace(Trim(copy(s,1,6) ),'.',',',[RfIgnoreCase]);
s:=copy(s,7,length(s)-6);//boşluklar atılır
s:=Trim(s);
satis:=StringReplace(Trim(copy(s,1,6) ),'.',',',[RfIgnoreCase]);
if aranan='ABD DOLARI' then
begin
////dolar satis
dbedit1.Text:=satis;
end
else
begin
////euro satis
dbedit3.Text:=satis;
end;
end;
aranan:='EURO';
end;
except on e:Exception do
begin
StatusBar1.SimpleText:='Kur Bilgisi Alınamadı'+e.Message;
end;
end;
end;
şimdi sizlere nerede çevirme yaptığını anlatayım
çevirmesiz
alis:=copy(s,1,6)
*-._.-* *-._.-**-._.-* *-._.-**-._.-* *-._.-**-._.-* *-._.-**-._.-* *-._.-**-._.-* *-._.-*
çevirmeli
alis:=StringReplace(Trim(copy(s,1,6) ),'.',',',[RfIgnoreCase]);
*-._.-* *-._.-**-._.-* *-._.-**-._.-* *-._.-**-._.-* *-._.-**-._.-* *-._.-**-._.-* *-._.-*
bunları yapmadan bölgesel dil ayarları kısmında da nokta yı virgül virgüllü nokta yapabilir siniz
ama bu seferde büyük bir proje yapımında karışıklıklar meydana getirecektir...
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla