Selam.
Edit içine ilk karakter olarak "http://www." girişilmişse kontrolünü nasıl sağlaya bilirim...
Edit içine http://www. girilmemişse
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- barisatalay
- Üye
- Mesajlar: 398
- Kayıt: 02 Nis 2013 05:43
- İletişim:
Re: Edit içine http://www. girilmemişse
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');
Yeni bloğum: http://brsatalay.blogspot.com.tr/
Re: Edit içine http://www. girilmemişse
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ı
Re: Edit içine http://www. girilmemişse
Basitçe
"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ç
begin
if edit1.Text<>'http://www.' then
label1.Caption:='Eksik'
else
label1.Caption:='Tamam';
end;
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;
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;
Re: Edit içine http://www. girilmemişse
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...
- barisatalay
- Üye
- Mesajlar: 398
- Kayıt: 02 Nis 2013 05:43
- İletişim:
Re: Edit içine http://www. girilmemişse
Hahaha hatamı şimdi gördüm copy yapmak yerine [11] yaparak String içerisindeki 11. sıradaki harfi almışımSerhat 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ı
Yeni bloğum: http://brsatalay.blogspot.com.tr/