Delphi de yeni sayılırım.
15 karekterli bir string kelimeyi sorgulayıp sonundaki 4 karekteri bulup veren bir fonksiyon nasıl yapabilirim? yada kılavuz olabilecek bilgiye nasıl ulaşabilirim?
Yardımcı olan herkese şimdiden teşekkürler

Tam olarak yapmak istediğim:tam olarak niçin sorgulayacaksın. yazarsan daha iyi bir cevap alabilirsin.
Kod: Tümünü seç
[....]
var
s1, s2 : string;
fdirX : integer;
begin
s1 := DXInfo.DirectXVer; // DirectX sürümü - örnek s1 := 4.09.00.0900
s2 := Copy(s1,10,length(s1);// Önerdiğiniz komutla değeri '900' olarak alabilirim.
fdirX := StrToInt(s2);
if fdirX < 900 then
begin
ShowMessage('Program DirectX 9 dan aşağı sürümlerde çalışmaz!'
+#13+'Lütfen DirectX 9 veya üst sürümü yükleyiniz');
Application.Terminate;
end;
end;
Kod: Tümünü seç
var
s1, s2 : string;
fdirX : integer;
a:byte;
begin
s1 := DXInfo.DirectXVer; // DirectX sürümü - örnek s1 := 4.09.00.0900
for a:=3 downto 0 do
s2:=s2+s1[length(s1)-a];
fdirX := StrToInt(s2);
if fdirX < 900 then
begin
ShowMessage('Program DirectX 9 dan aşağı sürümlerde çalışmaz!'
+#13+'Lütfen DirectX 9 veya üst sürümü yükleyiniz');
Application.Terminate;
end;
end;