String To AnsiString

[dvdkritik]

Arkadaşlar kolay gelsin iyi çalışmalar.

Belirli değer aralığında bulunan sayılara karşılık harfleri döndürmek istiyorum.editbox içerisine yazılan sayının değer aralığı 36-42 mesela
36-36.5 arası 80 D gibi..Buna benzer bir matlab tanımlaması buldum ;

for i=42:58
x=x-0.6;
if x-0.6<a && a<x
i1=char(i);
x1=x-0.6;
end

bu kodu da tanımlamak için delphide ;

procedure TForm1.Button1Click(Sender: TObject);
VAR
a,b:extended;
x,y:extended;
i:integer;
i1:String;

begin
a:=Strtofloat(Edit1.Text);
b:=Strtofloat(Edit2.Text);
x:=43;
y:=25;
x1:=x-0.5;


for i := 68 to 80 do

if (x-0.5<a) and (a<x) then
i1:=char(i);

Edit3.text:=i1;

işlem adımlarını izledim, ancak kodu derleyip sağlıklı bir şekilde çalıştıramadım..Yardımcı olabilir misiniz acaba :///

[freeman35]

sağlıklı şekil den kastın nedir?

Kod: Tümünü seç

i1:= '';
for i := 68 to 80 do 
  if (x-0.5<a) and (a<x) then
    i1:= i1 +char(i);

Edit3.text:=i1; 

[dvdkritik]

Öncelikle teşekkür ederim.a nın değer aralığı 36,42 x de sınırlayıcı olarak 43 diye tanımladım yani 36, 42 aralığını 36-36.5 80'e 41.5-42 de 68 e gelecek şekilde yapmak istiyorum bu konuda ilerleyemedim..

[ertank]

Ne yapmak istediğiniz net olarak anlaşılmıyor. "Değer aralığında bulunan harfler" şeklinde ifade ediyorsunuz. 41.5-42 de 68 nasıl oluyor? 68 aralık dışı değil mi? Aralık dediğiniz farklı birşey ise nedir?

Muhtemelen spesifik bir konuda işlem yapıyorsunuz. Sorunuzu revize etmenizde fayda var. Hesaplama ile ilgili formül var ise bunu paylaşın. Konu ile ilgili daha detaylı bilgi verin. Birkaç adımlık değer - sonuç listesi paylaşın, vb.

[dvdkritik]

Öncelikle geribildirim için teşekkür ederim.tanımladığım iki edit box var ve bunlara float sayılar yazılacak.Değer aralığım 36-42.Bu değer aralığına göre her yarım aralığa bir harf output olması lazım ascii karakterleri ile bu sorunu çözebilirim diye düşünmüştüm ancak başaramadım..Sanırım her aralığı ayrı ayrı tanımlamam gerek...