Forum: Lazarus (IDE)
by darky95,
29. Mai 2015
Mit folgendem Code hat's wunderbar funktioniert:
for i := 1 to 248 do begin
fname := StringGrid.Cells;
dirname := StringGrid.Cells;
if not FileExists('C:\pdfbenannt\'+fname) then
Continue; // oder Continue?
ForceDirectories('C:\pdfbenannt\'+dirname);
Forum: Lazarus (IDE)
by darky95,
28. Mai 2015
Habe das StrigGrid nochmal überarbeitet. Der Code sieht jetzt so (übernommen) aus:
procedure TForm1.btnstartSortClick(Sender: TObject);
var i:Integer; fname, dirname : string;
begin
for i := 1 to 248 do begin
fname := StringGrid.Cells;
dirname := StringGrid.Cells;
Forum: Lazarus (IDE)
by darky95,
28. Mai 2015
Okay, habe mich vllt wirklich etwas blöd angestellt bei dem Erstellen des Themas.
Habe mir jetzt folgendes zusammengeschustert:
procedure TForm1.btnstartSortClick(Sender: TObject);
var i:Integer; fname, dirname : string;
begin
Forum: Lazarus (IDE)
by darky95,
22. Mai 2015
Hallo Leute,
ich habe monatlich rund 300 Briefe auf meinem Tisch liegen, die ich auf einen Schlag bearbeiten und versenden muss.
Der Spaß soll jetzt digitalisiert werden, also per Mail (PDF) raus gehen. Ich habe alle Briefe eingescannt, und per AutoHotKey schon eindeutig umbenennen lassen. :-D
Mein Problem besteht jetzt darin, dass ich eine Datenbank habe (die man ggf. zu einer...