EULANDA® ERP System Head Start thru Technology

MyDocumentsDir (Pascal-Script)

Back | Level back

Beschreibung

Diese Stringfunktion ermittelt den Speicherort des speziellen Ordners „Eigene Dateien“. Dieser ist abhängig vom ausgeführten Betriebssystem und vom angemeldeten Benutzer.

Syntax

function MyDocumentsDir: string;

Argumente

Der Speicherort wird aus API des Betriebssystems über die ShellFolder-Funktion ermittelt. Hierzu muss auf dem Arbeitsplatz der Explorer 5.5 installiert sein.

Beispiel

begin
  memo1.lines.SaveToFile(MyDocumentsDir+'\test.txt');
  showMessage('Gespeichert unter: '+MyDocumentsDir+'\test.txt');
end;

Regeln zum Nachvollziehen des Scripts finden Sie hier.

In diesem Beispiel wird vorausgesetzt, dass im Entwurf des Berichts ein Element memo1 auf einem der Bänder positioniert wurde. Der Inhalt dieses Memo1-Elements wird dann als ASCII-Datei mit dem Namen TEST.TXT im Spezial-Ordner „Eigene Dateien“ des PCs, angelegt. Zusätzlich wird eine entsprechende Bildschirmmeldung ausgegeben.

ShowMessage zeigt: Gespeichert unter: C:\Dokumente und Einstellungen\Klaus\Eigene Dateien\test.txt

©Eulanda Software GmbH Made in Germany, 1989-2010. All rights reserved.