VB-Code in Delphi

[roth]

Guten Tag!
Ich möchte folgenden VB-Code in Delphi haben...habe es leider nicht geschafft :(

Delphi-Quellcode:

 Range("A1").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1))

Möchte eine zelle im Excel wo zb. mit "jdfklaösfdj;jkflöasdjflk;jlfköasjfdö" gefüllt ist durch die ; trennen!

MFG roth

[marabu]

Herzlich willkommen in der Delphi-PRAXiS.

Hier ein Beispiel für dich, das du sicher an deine Bedürfnisse anpassen kannst:

Delphi-Quellcode:

procedure TDemoForm.SplitButtonClick(Sender: TObject);
var
  wb: ExcelWorkbook;
  ws: ExcelWorkSheet;
  r, dr: ExcelRange;
  fi: OleVariant;
  s: string;
begin
  xl.Connect;
  wb := xl.WorkBooks.Add(null, GetUserDefaultLCID);
  ws := wb.Sheets.Add(null, null, 1, null, GetUserDefaultLCID) as ExcelWorkSheet;
  r := ws.Range['A1', 'A1'];
  r.Value2 := 'nur;ein;beispiel';
  fi := VarArrayOf([
    VarArrayOf([1, xlTextFormat]),
    VarArrayOf([2, xlTextFormat]),
    VarArrayOf([3, xlTextFormat])
  ]);
  dr := ws.Range['B1', 'B1']; // nur linke Zelle muss angegeben werden
  r.TextToColumns( dr, xlDelimited, xlTextQualifierNone,
    Null, False, True, False, False, False, Null, fi, Null, Null, Null
  );
  ShowMessage(Format('%s :: %s :: %s', [dr.Item[1, 1], dr.Item[1, 2], dr.Item[1, 3]]));
  xl.Disconnect;
end;

Vorweihnachtliche Grüße vom marabu