#bimilyonneden furyasına ben de katıldım bugün. Vapurda yaşadığım traji komik bir olayı paylaştım. Merak edersen gir bak #bimilyonneden hashtagiyle Twitter’da yazıyorum. Hatta http://www.bimilyonneden.com/ sitesinde bile çıktı. Bu arada telaşlanma, hikaye mutlu sonla bitiyor.
Bir bumads advertorial içeriğidir.

Hata Mesajı :
PROCEDURE ENTRY POINT _ATOMIC_FETCH_SUB_4 COULD NOT BE LOCATED IN THE DYNAMIC LINK LIBRARY MSVCR110.DLL
Çözüm:
procedure TForm1.Button1Click(Sender: TObject);
var
ters:string;
i:integer;
begin
ters:='';
begin
memo2.Text := memo1.Text;
for i:= length(memo2.text) downto 1 do
ters:= ters+copy(memo2.text,i,1);
memo2.Text:=ters;
end;
end;
Memo nesnesinde ki karakter sayısını buluan Delphi Programı
procedure TForm1.Button1Click(Sender: TObject);
var
metin:AnsiString;
uzunluk:Integer;
begin
metin:=Memo1.Text;
uzunluk:=Length(metin);
Edit1.Text:=IntToStr(uzunluk);
end;
end.
Resim ekleme MainMenuden..
procedure TForm1.ResimEkle1Click(Sender: TObject);
var
alsana: String;
begin
OpenPictureDialog1.Execute;
alsana:=OpenPictureDialog1.FileName;
Image1.Picture.LoadFromFile(alsana);
end;
end.
Memo nesnesindeki texti txt dosyasına kaydetme..
procedure TForm1.Button3Click(Sender: TObject);
var
dosya:AnsiString;
begin
SaveDialog1.DefaultExt:='txt';
SaveDialog1.InitialDir:='c:\';
if SaveDialog1.Execute Then
begin
dosya:=SaveDialog1.FileName;
Memo1.Lines.SaveToFile(dosya);
end;
end;
end.
Artık Facebook hesabınızdan tamamen kurtulmak isteyenlerin izleyeceği yol.

Buraya Tıklayarak , oturum açmanızı isterse bu işlemi gerçekleştirin. Ve bu sayfadan hesabınızı silebilirsiniz.
İşlemleri gerçekleştirin ve onaylayın.
14 Gün boyunca hesabınıza erişim gerçekleştirmezseniz hesabınız tamamen silinecektir.
Not:Facebook connect ile oturum açtığınız sitelere gidin ve hesaplarınızı kapatın. Yani Facebook dışındaki sitelerde Facebook bilgileri ile oturum açtığınız sitelerle ilişkinizi kesin. Bu sitelere iptal süreci içerisinde oturum açarsanız, hesabınız tekrar dirilecek ve baştan başlamanız gerekecektir.
:) Basit ama bir o kadarda başlangıç için ideal bir kod yapısı.. Buyrun burdan yakın;
<? /*Açıklama Satırı*/
printf('Sayılar ve İşlem Sonucları aşağıdadır'); #Açıklama Satırı
?>
<table border="3" width="40%" >
<tr>
<td width="20%"><b>1 Sayi </b></td>
<td width="20%">
<?printf($sayi1);?></td>
</tr>
<tr>
<td width="20%"><b>2. Sayi :</b></td>
<td width="20%"><?printf($sayi2);?></td>
</tr>
<tr>
<td width="20%"><b>Sonuç</b></td>
<td width="20%"><?
if ($find =='+') $sonuc=$sayi1+$sayi2;
if ($find =='-') $sonuc=$sayi1-$sayi2;
if ($find =='*') $sonuc=$sayi1*$sayi2;
if ($find =='/') $sonuc=$sayi1/$sayi2;
printf($sonuc);
?></td>
</tr>
</table>
İyi Çalışmalar
Merhaba arkadaşlar geç kalınmış olsa da hoş ve oldukça eğitici bir sistem. Google Chrome'nın desteği ile eklenti şeklinde veya doğrudan Type Fu kendi sitesinden çalışmaya başlayabilirsiniz.
Uygulama web üzerinde çalışmakta ekran görüntüleri;

Sizin yazmanız ile hangi harfe basacağınızı ekranda gösteriyor.


Yazım hatalarında yazdığınız karakteri kırmızı olarak göstermekte. Sonuç olarak ekranın sağ tarafında değerlendirme yer almaktadır.
İşine yarayacak arkadaşlar olur :)
Buradan ulaşabilirsiniz.
Merhaba arkadaşlar Delphi ile yapılan bir hesap makinesi uygulaması. Kodları inceleyerek ve geliştirerek, kodlar hakkında fikir edinebilirsiniz.

Uygulama ve kodları buradan indirebilirsiniz iyi çalışmalar :)
hesap.rar (174,14 kb)