Kod: Tümünü seç
0,425-94-110
Kod: Tümünü seç
0,5-94-110
Kod: Tümünü seç
0,45-94-1
Kod: Tümünü seç
0,425-94-110
Kod: Tümünü seç
0,5-94-110
Kod: Tümünü seç
0,45-94-1
Kod: Tümünü seç
function Sayimi(veri:string):boolean;
var
kalip:string;
begin
kalip:='0123456789';
if pos(veri,kalip)>0 then
result:=True
else
result:=false;
end;
function NoBul(veri:string):string;
var
i,bas, son:integer;
begin
if length(veri)>0 then begin
bas:=pos('0,', veri);
for i:=bas+2 to length(veri)-1 do begin
if Not ( (copy(veri,i,1)='-') OR ( SayiMi(copy(veri,i,1)) ) ) then begin
son:=i;
break;
end;
end;
result:=copy(veri,bas,son-bas);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=NoBul(edit1.Text);
end;
hocam çok teşekkür ederim üstünde bir kaç oynamayla olayı çözüm ama sayı yerine normal harf vb. getirmeyi bir türlü başaramadım.söyle açıklıyım.erkan1525 yazdı:Dostum senin konunun adı regexp (Regular Expression)
Ama belliki hiç tanışmamışsın bu durumda öğrenmen biraz zor ve uzun sürebilir. Ama mutlaka öğren çok dehşet işelere yarıyor tüm dillerde var bu regexp ve kullanımı çok benzer.
Regexp olmadan da halletmek mümkün.
zannedersem bu değer 0, ile başlıyor önce onu bul. sonrada 3. tireyi ara ve son olarakda tireden sonra numara olmayan karakteri bul ve bitti hadi sana bir torpilde yapayım
Kod: Tümünü seç
function Sayimi(veri:string):boolean; var kalip:string; begin kalip:='0123456789'; if pos(veri,kalip)>0 then result:=True else result:=false; end; function NoBul(veri:string):string; var i,bas, son:integer; begin if length(veri)>0 then begin bas:=pos('0,', veri); for i:=bas+2 to length(veri)-1 do begin if Not ( (copy(veri,i,1)='-') OR ( SayiMi(copy(veri,i,1)) ) ) then begin son:=i; break; end; end; result:=copy(veri,bas,son-bas); end; end; procedure TForm1.Button1Click(Sender: TObject); begin edit2.Text:=NoBul(edit1.Text); end;
Kod: Tümünü seç
+HEADINFO:1,
Model Name = GT-I8160
Country/customer = -
Customer Code = EPL
Date = -
Charger = -
S/W version = I8160XXNB1
Unique Number = CM401EC1B40C89F
Memory Name = -
Sec Code = -