Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
hpffffffffff Die Antwort ist simpel. Ich wusste nicht das es auch so geht ..:shock::-D
Vielen Dank! Werde ich bei Tageslicht ausprobieren ...
das ist natürlich extrem wenig code und damit sehr sympatisch. wenn es um json geht...
Extrem lehrreich der Tag für mich! Danke :)
Frage: Ist das case sensitive?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
Heureka :twisted:
procedure SetProperty2(sProperty, sValue: string);
var
LPropList: PPropList;
LPropCount, I: Integer;
begin
LPropCount := GetPropList(LBotOptions, LPropList);
try
for I := 0 to LPropCount-1 do
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
Ich bin einen Kleinen schritt weiter !!
rocedure SetProperty2(sProperty, sValue: string);
var
LPropList: PPropList;
LPropCount, I: Integer;
begin
LPropCount := GetPropList(LBotOptions, LPropList);
try
for I := 0 to LPropCount-1 do
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
Also nachdem ich nun einen Schreibfehler ausgemerzt habe , bekomme ich als ausgabe
Von Public habe ich alles in published verschoben ....
Inkompatible Typen: 'TComponent' und 'TBotOptions'
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
TBotOptions = class (TObject)
wurde geändert ... gleicher Fehler *sniff*
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
TBotOptions = class
private
FChatID: string;
FRestrictNewUser: Boolean;
Fcan_send_other_messages: Boolean;
Fcan_send_messages: Boolean;
Fcan_add_web_page_previews: Boolean;
Fcan_send_media_messages: Boolean;
FAntiSpamMessage: string;
FDeleteSpam: Boolean;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
Er behauptet die Eigenschaft würde nicht existieren, obwohl sie das definitiv tut ?!?
Was übersehe ich ?!?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
Ich bin ja mal gespannt... ich werde heute zwar nicht mehr dazu kommen es einzubauen, berichte aber wenn es so weit ist,
Weil mal ganz ehrlich das erspart viel Arbeit ....
Wenn das wirklich funzt weiß ich gar nicht wie dankbar ich sein werde, die geschenkte Lebenszeit ist ja kaum aufzuwiegen :-D:-D
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
if (Ljtr.TokenType = TJsonToken.String) then
begin
if (LowerCase(Ljtr.Path) = 'groupoptions.chatid') then LBotOptions.chatid:= Ljtr.Value.ToString
else
if (LowerCase(Ljtr.Path) = 'groupoptions.antispammessage') then LBotOptions.AntiSpamMessage:= Ljtr.Value.ToString
else
if (LowerCase(Ljtr.Path) =...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
Da ich mit PPropInfo; und co noch nicht viel zu tun hatte muss ich nochmal nachfragen ob ich es richtig verstehe, da ich z.B beim else der procedure hänge.
procedure SetProperty(AComponent: TComponent; sProperty, sValue: string);
bedeutet doch
aComponent = Bauplan
sProperty = poperty des Bauplans
sValue = Wert der an das property des Bauplans gesendet wird...
ist das soweit richtig?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
Das muss ich mal sacken lassen und werde es gleich mal probieren! Wenn das geht wäre das natürlich absolut Hammer!!
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
Ja das ist der Plan. Ich bekomme via jsonstring Eigenschaftswerte die ich (je nach bedarf) im "Bauplan" der Botoptions verankere.
Ich möchte mir ersparen dann jede Eigenschaft im Code beim einlesen nochmal verankern zu müssen.
Gruß
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by ScharfeMietze,
7. Okt 2018
if (LowerCase(Ljtr.Path) = 'groupoptions.can_send_other_messages') and (Ljtr.TokenType = TJsonToken.Boolean) then
begin
LBotOptions.cs:= Ljtr.Value.ToString.ToBoolean;
end
das ist typisches konstruct
ich hätte aber gerne sowas wie
try
if (Ljtr.TokenType = TJsonToken.Boolean) then LBotOptions.'can_send_other_messages' := ...