Array of Const to String (Çözüldü)

[masteryoda]

object pascal ile c deki variadic function nasıl yapılır göstermiş olduk

[esistem]

(18-09-2017, Saat: 16:53)uparlayan Adlı Kullanıcıdan Alıntı: Pardon, benim hatam, örneği şöyle tamamlamış olayım;

ShowMessage (  ArrayOfConstToString( [ 1.1, now, 'Ali Kemal', '', NULL , 55 ] )  );

NULL gönderemedim ben, varyantı çeviremiyorum diyor.

[uparlayan]

Arkadaşlar, öncelikle ilginize teşekkür ederim. Bu kısım altında yorumda bulunan ve çözüm sunan tüm arkadaşlarımıza bir kısım puanlar verdim.

Veritipini doğru sunduğu fakat örnek kod paylaşmadığı için İsmailKocacan üstada 5 puan, AbdullahIlgaz ve esistem arkadaşıma da çözüme yakın kod paylaştıkları için 8'er puan verdim. Masteryoda arkadaşımızın yakşalımı da güzeldi .

NULL değerlerin parametre olarak gelmesi durumunda ne yapılacağı ile ilgili bir çözüm sunulamadı. Bir Variant değerin NULL olup olmadığını anlamak için VarIsNULL fonksiyonundan yararlandığımız zaten hepimizin malumu, fakat Integer(NULL) gibi bir parametre gelmesi durumunda (.NET ortamındaki delphi hariç) bu değerlerin henüz Delphide işlenemediğini NULLABLE TYPE'ların henüz Delphi'de olmadığını bir arkadaşımızın söylemesini beklemiştim, kısmet banaymış

Amaç sinerji yaratmaktı, bunda da amacımıza ulaştığımız düşüncesindeyim. Tekraren herkese teşekkürler,

[esistem]

Buyur hocam;

function MakeStr(const Args: array of const): string;
var
 I: Integer;
begin
 Result := '';
 for I := 0 to High(Args) do
    with Args[I] do
       case VType of
         vtInteger:  Result := Result + IntToStr(VInteger) + ';';
         vtBoolean:  Result := Result + BoolToStr(VBoolean) + ';';
         vtChar:     Result := Result + VChar + ';';
         vtExtended: Result := Result + FloatToStr(VExtended^) + ';';
         vtString:   Result := Result + VString^ + ';';
         vtPChar:    Result := Result + VPChar + ';';
         vtObject:   Result := Result + VObject.ClassName + ';';
         vtClass:    Result := Result + VClass.ClassName + ';';
         vtAnsiString:  Result := Result + string(VAnsiString) + ';';
         vtUnicodeString:  Result := Result + string(VUnicodeString) + ';';
         vtCurrency:    Result := Result + CurrToStr(VCurrency^) + ';';
         vtVariant:
         begin
         If not VarIsNull(VVariant^) then Result := Result + string(VVariant^) + ';';
         end;
         vtInt64:       Result := Result + IntToStr(VInt64^) + ';';
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(MakeStr(['test', datetostr(now), Null, True, False, 3.14159, TForm1]));
end;

[ismailkocacan]

Estağfirullah hocam.
Ben üstad, şıh olmak yerine öğrenen olmayı daha çok seviyorum.