Nummer der Datei um 1 erhöhen

[AnfängerDelphi]

Hallo Volker,

bis November werde ich nicht warten...
Ich habe leider nicht so viel Zeit,um mich jeden Tag mit programmieren zu beschäftigen.
Bei mir läuft es wirklich nur nebenher.

Das ist die komplette Prozedur.Soweit funktioniert es auch.
Ich kann dir aber nicht sagen,wo der Fehler lag.

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  pfad, ze, sp1, sp2, sp3 : String;
  excel : OleVariant;
  vListe, i : Smallint;

begin 

 pfad := Form1.JvDirectoryEdit1.Directory;

  try
    excel := CreateOleObject('Excel.Application');
   
     if FileExists(pfad + '\Datei1.xls') then
        begin
         excel.Workbooks.open(pfad + '\Datei1.xls');
         vListe := 1;

           for i := 0 to ListView1.Items.Count -1 do
              begin
               ze := ListView1.Items[i].Caption;
               sp1 := ListView1.Items[i].SubItems[0]
               sp2 := ListView1.Items[i].SubItems[1]
               sp3 := ListView1.Items[i].SubItems[2]
               inc(vListe);
               excel.Cells[vListe, 3] := sp1;
               excel.Cells[vListe, 4] := sp2;
               excel.Cells[vListe, 5] := sp3;
              end;

           excel.Visible:= true;
        end;

  finally
      excel := Unassigned;
  end;
 
end;

Aber trotzdem Danke für deine Hilfe.

Mfg

AnfängerDelphi

[Sir Rufo]

Ähm, worum ging es hier in diesem Thread nochmal?

Eine Datei mit Excel öffen und eine Variable (völlig sinnlos) inkrementieren?
(ok, evtl. eine Zeitschleife gegen Timingprobleme)
Was hat das mit "Nummer der Datei um 1 erhöhen" zu tun?

[AnfängerDelphi]

Hallo Sir Rufo,

richtig,meine Frage wurde schon beantwortet.
Ich habe nur die Prozedur vervollständigt,wie es gewünscht wurde.

Zitat:

(ok, evtl. eine Zeitschleife gegen Timingprobleme)

Also eine Zeitverzögerung einbauen und das inc(vListe); weglassen?
Sowas in dieser Art z.B.:

Delphi-Quellcode:

procedure pause(zeit:longint);
var zeit1:longint;
begin
  zeit1:=GetTickCount;
  repeat
        application.ProcessMessages;
  until (GetTickCount-zeit1 > zeit);
end;

Mfg

AnfängerDelphi