Forum: Datenbanken
Delphi
by Delphi.Narium,
30. Jun 2020
Einen noch:t := trim(_Source.FieldByName(MeinText).AsString);
if t = '' then begin
_Target.FieldByName(MeinText).Value := EmptyParam; // <-- Das ist die "Variantversion von Null". (Bei Delphi 7 in Variants definiert.)
end else begin
_Target.FieldByName(MeinText).AsString := t;
end;
Forum: Datenbanken
Delphi
by Delphi.Narium,
30. Jun 2020
Eventuell:
t := trim(_Source.FieldByName(MeinText).AsString);
if t = '' then begin
_Target.FieldByName(MeinText).AsVariant := EmptyParam; // <-- Das ist die "Variantversion von Null". (Bei Delphi 7 in Variants definiert.)
end else begin
_Target.FieldByName(MeinText).AsString := t;
end;
Beim Lesen von so einer Spalte mit .AsString bekommt man immer einen leeren String.
Forum: Datenbanken
Delphi
by Delphi.Narium,
30. Jun 2020
VarChar(Max - 1)?
Edit:
In meinem ollen Delphi 7 finde ich in der ADODB.pas folgendes:
procedure TCustomADODataSet.SetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean);
procedure BufferToVar(var Data: OleVariant);
begin