Kod İncelemesi
Kod: Tümünü seç
function TForm1.FindCryptoValue(const ACrypto: String): String;
var
I: Integer;
Symbol, ItemValue: String;
begin
Result := '';
for I := 0 to ListBox1.Items.Count - 1 do
begin
Symbol := Trim(Copy(ListBox1.Items[I], 1, Pos(':', ListBox1.Items[I]) - 1));
ItemValue := Copy(ListBox1.Items[I], Pos(':', ListBox1.Items[I]) + 1, MaxInt);
if SameText(Symbol, ACrypto) then
begin
Result := Trim(ItemValue);
Break;
end;
end;
end;
Fonksiyon Açıklaması
ACrypto: Bu parametre, aranan kripto paranın sembolünü temsil eder.
Result: Bu değişken, fonksiyonun geri döndüğü değeri tutar. Eğer aranan kripto sembolü bulunamazsa boş bir dize olarak kalır.
for döngüsü: Liste kutusundaki her öğeyi kontrol etmek için kullanılır.
Symbol: Her öğenin başındaki sembolü temsil eder.
ItemValue: Her öğenin sembolünü takip eden değeri temsil eder.
SameText(Symbol, ACrypto): Sembollerin büyük-küçük harf duyarlılığı olmadan karşılaştırılmasını sağlar.
Result := Trim(ItemValue): Eğer aranan sembol bulunursa, karşılık gelen değeri döndürür ve gereksiz boşlukları temizler.
Break: Aranan sembol bulunduğunda döngüyü sonlandırır.
Sonuç
Bu kod, liste kutusundaki kripto paraların sembollerini ve değerlerini karşılaştırarak, belirli bir kripto paranın değerini bulma işlevini gerçekleştirir. Bu tür bir işlev, kripto para uygulamalarında veya finansal uygulamalarda kullanılabilir, özellikle kullanıcıya belirli bir kripto paranın anlık değerini göstermek istendiğinde.