unsere Anwendung wurde unter Windows und dem
DB Framework
ADO entwickelt, wir benötigen jetzt auch Support der Plattform UNIX, und dem
DB Interface FireDAC.
Wir wollen deshalb beide
DB Interfaces über Compiler Switches unterstützen aber nur eine Code Variante bereitstellen/pflegen/weiterentwickeln .....
Wir haben deshalb eine "Vermittler Klasse " eingeführt, die entweder von TAdoCommand oder TFDCommand erbt.
unit FireDAC.Comp.Client;
Delphi-Quellcode:
TFlexCommand = class(TFDCommand)
private
procedure SetCommandText(const Value: string);
public
property CommandText : string write SetCommandText;
end;
procedure TFlexCommand.SetCommandText(const Value: string);
var tempLst : TStringList;
begin
tempLst := TStringList.Create;
try
tempLst.CommaText := Value;
// Self.SetCommandTextStrs (tempLst); (1)
// FCommandText.SetStrings(tempLst) (2)
finally
tempLst.Free
end;
end;
CommandText ist bei
ADO ein String bei Firedac eine Stringliste.
Ich will jetzt die Property CommandText ind meiner neuen Klasse als als String haben und dann als Stringliste an die Eltern-Klasse TFDCommand übergeben,
meine beiden Versuche (1) und (2) lassen sich aber leider nicht compilieren, welchen Fehler mache ich ?