Was ist eine variable "Variant"

[NikoMitDaMacht]

Was ist/heist "Variant" (in meinen fall : excel: variant;) und was kann ich dafür einstezten? Ich brauche es für diese function

[Luckie]

Variant ist ein Datentyp. Näheres dazu findest du in der Delphi-Hilfe.

[Phoenix]

Ein Variant ist ein varianter (wechselbarer) Datentyp.

Beispiel:

Delphi-Quellcode:

var
   vari: variant;
   text: string;
   int: integer;
begin
   int := 25;    // integer füllen
   vari := int;   // in die variante packen
   text := vari;  // die variante kann auch ein text sein...
   ShowMessage(text);   // der ausgegeben wird
end;

[NikoMitDaMacht]

:wiejetzt:
Sorry aber ich hab da keinen durchblick ( bzw. ich raffs nich). :duck: Wie bezieht sich das auf meine funktion?

[NikoMitDaMacht]

@Phoenix: vielen dank..
..aber das hilft mir leider nicht weiter bei meinen Problem mit folgender function

Delphi-Quellcode:

Function ExcelCopyToStringGrid(
  Excel                 : Variant;
  ExcelFirstRow         : Integer;
  ExcelFirstCol         : Integer;
  ExcelLastRow          : Integer;
  ExcelLastCol          : Integer;
  StringGrid            : TStringGrid;
  StringGridFirstRow    : Integer;
  StringGridFirstCol    : Integer;
  SizeStringGridToFit   : Boolean; {Make the StringGrid the same size as the input range}
  ClearStringGridFirst  : Boolean  {cells outside input range in StringGrid are cleared}
  ): Boolean;
Var
  C,R : Integer;
Begin
  Result := False;
  If ExcelLastCol < ExcelFirstCol Then Exit;
  If ExcelLastRow < ExcelFirstRow Then Exit;
  If (ExcelFirstRow < 1) Or (ExcelFirstRow > 255)   Then Exit;
  If (ExcelFirstCol < 1) Or (ExcelFirstCol > 30000) Then Exit;
  If (ExcelLastRow  < 1) Or (ExcelLastRow > 255)    Then Exit;
  If (ExcelLastCol  < 1) Or (ExcelLastCol > 30000)  Then Exit;
  If StringGrid = nil   Then Exit;
  If SizeStringGridToFit Then
  Begin
    StringGrid.ColCount := ExcelLastCol - ExcelFirstCol + StringGridFirstCol + 1;
    StringGrid.RowCount := ExcelLastRow - ExcelFirstRow + StringGridFirstRow + 1;
  End;
  If ClearStringGridFirst Then
  Begin
    C := StringGrid.ColCount;
    R := StringGrid.RowCount;
    StringGrid.ColCount := 1;
    StringGrid.RowCount := 1;
    StringGrid.Cells[0,0] := '';
    StringGrid.ColCount := C;
    StringGrid.RowCount := R;
  End;

  Result := True;
  For R := ExcelFirstRow To ExcelLastRow Do
  Begin
    For C := ExcelFirstCol To ExcelLastCol Do
    Begin
      Try
        StringGrid.Cells[
          C - ExcelFirstCol + StringGridFirstCol,
          R - ExcelFirstRow + StringGridFirstRow] :=
            Excel.Cells[R, C];
      Except
        Result := False;
      End;
    End;
  End;
End;

Ich will damit ein excel worksheet in ein stringgrid machen :

Delphi-Quellcode:

ExcelCopyToStringGrid( {hier ist mein problem} ,1,1,10,5,Stringgrid1,1,1,true,true);

[Luckie]

Ich sehe da kein Problem. Die Funktion erwartet eben als ersten Parameter einen Variable vom Typ Variant.

[Phoenix]

Ich würde fast glauben, Excel ist ein Automatisierungsobjekt (OleObject), das heisst eine Instanz von Excel.
Du kannst in einen Variant schliesslich auch Objekte (in dem Fall ein COM-Objekt) reinpacken.

[NikoMitDaMacht]

und was ist nun wieder ein com-object?

[Phoenix]

Zitat:

Zitat von NikoMitDaMacht

und was ist nun wieder ein com-object?

Ich verstehe den Sinn der Frage nicht: Denn das solltest Du eigentlich wissen, wenn du (Zitat:) diese function (Zitat ende) verwenden willst.

Zitat:

Zitat von Quelltextkommentar

{!~Copies a range of Excel Cells to a Delphi StringGrid. If successful
True is returned, False otherwise. If SizeStringGridToFit is True
then the StringGrid is resized to be exactly the correct dimensions to
receive the input Excel cells, otherwise the StringGrid is not resized.
If ClearStringGridFirst is true then any cells outside the input range
are cleared, otherwise existing values are retained. Please not that the
Excel cell coordinates are "1" based and the Delphi StringGrid coordinates
are zero based.}

Du übergibst ein Excel-Sheet an die Funktion und die packt Dir die Daten in ein Stringgrid.

Du musst Dir dann ja vorher bereits den Excel-COM-Server instanziert haben und dort das entsprechende Sheet geöffnet haben bevor Du die Daten in das Stringgrid reinbekommen kannst.

[Jelly]

Hallo,

ein Variant ist noch viel mehr wie nur ein Datentyp. Ab Delphi 6 besteht damit auch die Möglichkeit von Operatorüberladung... Da gehen dann (man staune :shock:) sogar so Berechnungen wie

Delphi-Quellcode:

c1 := VarComplexCreate('1+2i') ;
c2 := VarComplexCreate(3-4i) ;
c := c1 * c2 ; // -> liefert dir 11 + 2i

Ist das nicht toll 8)

Gruß