Edit içine http://www. girilmemişse

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Serhat
Üye
Mesajlar: 203
Kayıt: 27 Tem 2014 11:10

Edit içine http://www. girilmemişse

Mesaj gönderen Serhat »

Selam.


Edit içine ilk karakter olarak "http://www." girişilmişse kontrolünü nasıl sağlaya bilirim...
Kullanıcı avatarı
barisatalay
Üye
Mesajlar: 398
Kayıt: 02 Nis 2013 05:43
İletişim:

Re: Edit içine http://www. girilmemişse

Mesaj gönderen barisatalay »

Editör kullanmadan aklımdan yazdım bir denesenize bunu

Kod: Tümünü seç

var
  T, TamText: String;
begin
  TamText := Edit1.Tex;
  T := TamText[11];
  if Pos('http://www.', T) = 0 then
    Showmessage('Hata');
Kullanıcı avatarı
Serhat
Üye
Mesajlar: 203
Kayıt: 27 Tem 2014 11:10

Re: Edit içine http://www. girilmemişse

Mesaj gönderen Serhat »

barisatalay yazdı:Editör kullanmadan aklımdan yazdım bir denesenize bunu

Kod: Tümünü seç

var
  T, TamText: String;
begin
  TamText := Edit1.Tex;
  T := TamText[11];
  if Pos('http://www.', T) = 0 then
    Showmessage('Hata');

Hocam edit içinde olsa da olmasa da Showmessage devreye giriyor http://www. ilk karakter olmalı
Kullanıcı avatarı
Commandx
Üye
Mesajlar: 181
Kayıt: 01 Oca 2008 05:34

Re: Edit içine http://www. girilmemişse

Mesaj gönderen Commandx »

Basitçe

Kod: Tümünü seç

begin
if edit1.Text<>'http://www.' then
label1.Caption:='Eksik'
else
label1.Caption:='Tamam';
end;
"http://www." string katarından sonra edite daha sonra yazılacak karakterleri kontrol etmemek için bir varyant (kopyalanan) değişkenine daha ihtiyaç var

en son hali bu

Kod: Tümünü seç

procedure TForm1.Edit1Change(Sender: TObject);
var
kopyalanan:string;
begin
kopyalanan:=  copy(edit1.text,0,11);
if kopyalanan<>'http://www.' then
label1.Caption:='Eksik'
else
label1.Caption:='Tamam';
end;

En son Commandx tarafından 26 Şub 2015 05:09 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
Kullanıcı avatarı
brs
Üye
Mesajlar: 626
Kayıt: 04 Eki 2012 03:52

Re: Edit içine http://www. girilmemişse

Mesaj gönderen brs »

Buda benden olsun uses StrUtils ekle

Kod: Tümünü seç

procedure TForm9.KaydetClick(Sender: TObject);
begin
    if AnsiLeftStr(WebSite.Text, 11) <> 'http://www.' then
    begin
      WebSite.SetFocus;
      Application.MessageBox('Lütfen "http://www." Formatında Giriş Yapınız!',   'Mesaj', 0);
    end
    else
    begin
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Kullanıcı avatarı
barisatalay
Üye
Mesajlar: 398
Kayıt: 02 Nis 2013 05:43
İletişim:

Re: Edit içine http://www. girilmemişse

Mesaj gönderen barisatalay »

Serhat yazdı:
barisatalay yazdı:Editör kullanmadan aklımdan yazdım bir denesenize bunu

Kod: Tümünü seç

var
  T, TamText: String;
begin
  TamText := Edit1.Tex;
  T := TamText[11];
  if Pos('http://www.', T) = 0 then
    Showmessage('Hata');

Hocam edit içinde olsa da olmasa da Showmessage devreye giriyor http://www. ilk karakter olmalı
Hahaha hatamı şimdi gördüm copy yapmak yerine [11] yaparak String içerisindeki 11. sıradaki harfi almışım :)
Cevapla