Hallo,
ich arbeite an einem Programm, das in Excelzellen schreibt (via OLE). Allerdings bin ich der Meinung, das der Vorgang etwas zu lange dauert. Ich habe das ganze erst für die ersten 100 Zellen vorgenommen (ich brauche noch ca. 900 ):

markieren

Delphi-Quellcode:

if (Edit1.Text <> '') then
    Excel.Cells[x, x].Value := Edit1.Text;

if (Edit2.Text <> '') then
    Excel.Cells[x, x].Value := Edit2.Text;

//[...]

Da es etwas aufwendig ist, diesen Code für 1000 Excelzellen zu deklarieren, wäre es hilfreich, wenn das etwas schhneller gehen würde (gibt es kostenlose Komponenten, oder ähnliches?).

MfG

Lukas

Warum bettest du nicht das Exceldokumenr direkt ein und lässt den Benutzer direkt in Excel editieren?

Du könntest im Tag jedes Edit die Zeile und spalte reinschreiben, in der der Text nachher stehen soll. und dann mit einer Schleife alle Komponenten eintragen.

markieren

Code:

Für Jedes TEdit Edit in Form1.GetComponents
  Trage Edit.Text in Zelle [HiWordVonTag, LoWordVonTag] ein

Das ist natürlich nur dann sinnvoll, wenn es sich um ungleichmäßige Daten handelt.
Für jewils gleich aufgebaute Datensätze gibt es ein TControlGrid oser so.
EDIT: Das Tag unterteilt man in Hi und LoWord:

markieren

Delphi-Quellcode:

procedure GetHiWordLoWord(Input:Integer; var OutputLow:Word; var OutputHi:Word)
begin
  OutputLow=Word(Input AND $0000FFFF);
  OutputHi=Word((Input AND $FFFF0000) shr 16);
end;

Ohne Gewähr

@mkinzler: Das ist nicht Sinn und Zweck der Anwendung. Das ExcelSheet ist sozusagen etwas "dumm". Meine Anwendung hingegen ist schlau . Sie berechnet aus dem Werten von EditX1 und EditX2 einen Wert für Edit1, diese 3 Werte übernimmt es dann in die Excel Tabelle, würde ich die Exceltabelle in die Anwendung einbetten, müsste ich Wert 3 erst mit dem Taschenrechner ausrechnen. Natürlich ist das noch das einfachste Beispiel: In meinem Programm kann man noch einstellen, welche Werte es aus EditX1, EditX2, EditX3, EditX4 für Edit1 bis Edit 10 ausrechnen soll. Mit dem einbetten müsste ich dann das ExcelSheet "intelligent" machen (allerdings kann ich dann nicht mehr speziellen Einstellungen vornehmen, die meine Anwendung ermöglicht).

@WM_Close: Leider handelt es sich um ungleichmäßige Daten

An was ich noch gedacht hätte: Eine eigene Komponente entwickeln! Sozusagen eine Excelkomponente, in der ich angebe aus welchem EditFeld, in welche Zelle und bedingungen (Wenn das Feld nicht leer ist, dann). Allerdings habe ich garkeine Idee wie das funktioniert.

Warum kannst du nicht eine Funktion deklarieren, wo du das Editfeld und die Koordinaten mit übergibst?
Dann vielleicht noch ein Array, wo die Editfelder drinstehen, damit die mit einer Schleife darauf zugreifen kannst?

Hast Du wirklich 900 einzelne Editfelder? Oder von mir aus 600?
Und die sind so individuell, das man die nicht irgendwie in ein Grid o.ä. packen kann?
Keine Gemeinsamkeiten? Keine Wiederholungen?