else if yardım

bjk_serco
22-03-2010, 22:26   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
1 mesaj
Kayıt Tarihi:Kayıt: Kas 2009

aşağıdaki kodu ne ekleyerek else if yapacağız sadece iflerin başına eklediğimizde yetersiz kalıyor

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]
nit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls, jpeg, ImgList, Buttons,ShellApi, ComCtrls; type   TForm1 = class(TForm)     Button1: TButton;     ListBox1: TListBox;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Button5: TButton;     hfhghhfddddddddddddddddddddddddddddddddddddd: TImage;     Button6: TButton;     Image2: TImage;     Memo1: TMemo;     Label1: TLabel;     procedure Button1Click(Sender: TObject);     procedure ListBox1Click(Sender: TObject);     procedure Button6Click(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;    f1,f2,f3,f4,:string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin listbox1.Clear; f1:=inttostr(listbox1.Items.Add('1.ÜNİTE-Mitoz Bölünme')); f2:=inttostr(listbox1.Items.Add('1.ÜNİTE-Kalıtım')); f3:=inttostr(listbox1.Items.Add('1.ÜNİTE-Mayoz Bolunme')); f4:=inttostr(listbox1.Items.Add('1.ÜNİTE-DNA ve Genetik Kod')); end; procedure TForm1.ListBox1Click(Sender: TObject); begin memo1.Lines.Clear; if listbox1.Selected [strtoint(f1)] then memo1.Lines.LoadFromFile('mitoz.txt'); if listbox1.Selected [strtoint(f2)] then memo1.Lines.LoadFromFile('kalıtım.txt'); if listbox1.Selected [strtoint(f3)] then memo1.Lines.LoadFromFile('mayoz.txt'); end; procedure TForm1.Button6Click(Sender: TObject); begin ShellExecute(self.WindowHandle,'open','www.yakuter.com',nil,nil, SW_hide); end; procedure TForm1.FormCreate(Sender: TObject); begin memo1.Lines.Clear; end; end.

seandillon
25-03-2010, 20:12   |  #2  
Üye
Teşekkür Sayısı: 0
56 mesaj
Kayıt Tarihi:Kayıt: May 2005

Delphi ile standart else if şekli aşağıdaki gibidir...
 
if durum=true then break else continue;
burada tek durum geçerlidir ama birden fazla durum varsa
 
if durum=true then
begin
          edit1.text:='TRUE';
          edit2.text:='FALSE';
end
else
begin
          Edit1.text:='FALSE';
          Edit1.text:='TRUE';
end;