Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.429 Beiträge
 
Delphi 10.4 Sydney
 
#12

AW: Problem beim Verwenden von Excel

  Alt 14. Dez 2012, 13:37
Dein Programm bekommt Daten immer als Typ OLE-Variant.
Die meisten Datentypen lassen sich automatisch zu einem String konvertieren, manche aber auch nicht.
Insbesondere für Zellen ohne Inhalt wird kein leerer String sondern "Unassigned" zurückgegeben.
Da wird auch mit Copy kein String draus, Copy verlangt als Parameter bereits einen String.

Versuchs doch mal in der Art:
Delphi-Quellcode:
var
  vName, vVorname: Variant;
  sNameVorname: string;
begin
{...}
  i := index7[j];
  while True do
  begin
    Inc(i);
    vName := Excel.Cells[i, 2].Value;
    vVorname := Excel.Cells[i, 3].Value;
    if VarIsEmpty(vName) or (vName = '') then
      Break;

    if VarIsEmpty(vVorname) or (vVorname = '') then
      sNameVorname := vName
    else
      sNameVorname := vName + ' ' + vVorname;

    ComboBox4.Items.Add(sNameVorname);
  end;
  Dec(i);
{...}
end;
  Mit Zitat antworten Zitat