Zeichenkette zerlegen...

[DeddyH]

Aus der Variants.pas von Delphi 2007 (das Zitat ist hoffentlich erlaubt):

Zitat:

Delphi-Quellcode:

function VarToWideStr(const V: Variant): WideString;
begin
  Result := VarToWideStrDef(V, NullAsStringValue);
end;

function VarToWideStrDef(const V: Variant; const ADefault: WideString): WideString;
begin
  if not VarIsNull(V) then
    Result := V
  else
    Result := ADefault;
end;