OBS/Makros und Scripting/Allgemeines/Übersicht Prozeduren: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „You can begin any time and energy to fix your poor credit; the quicker better. Paul Bieber an MBA economic did his master in economic. This is surely an intere…“)
 
 
(10 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
You can begin any time and energy to fix your poor credit; the quicker better. Paul Bieber an MBA economic did his master in economic. This is surely an interesting question and I thought I should share a little understanding on the way to handle it. According to Knittel and Sandler, 70 percent with the costs of a gas tax of $1 per gallon could possibly be recouped by immediate health benefits from reduced pollution. On one other hand, guarantor is not required anymore and you can get the amount on your own own.<br><br>These five companies a combined known gross profit of 1283. Many nominations reflect cronyism, not legal expertiseand the European Court's rulings are binding on all member states. We, at Best Payday Loans US are eagerly waiting to aid you. It's the simple fact that you just now have the capability to generate cash flow more quickly to compliment growth. I try to keep from search engines like yahoo when trying to locate good online survey websites [http://nojjal.com/jung/50619 elton john concert shirt] wife of 2010 masters champion phil mickelson, amy mickelson, is fighting breast cancer. Blind singer Andrea Bocelli goes rollerblading using the help of his bicyclist wife.<br><br>I were required to work in the same time, and after eight years, with 3 of 5 kids still in your own home, I'm teaching but am at risk of losing my job due to Indiana's public education budget cuts. Transforming rental properties into condos allows buyers to generate considerable cash-on-cash returns relatively quickly, that also allows prior apartment owners to cash out in the top of the market. By knowing this you'll manage to select an auto loan percentage rates that matches your needs without needing to worry should you made the correct decision. Borrowers can't get several loans from different lenders now either, and also this helps people keep away from serious debt troubles. This Is Why Homeowners Are Still Winding Up On The Street Even As Their Loans Are Modified. When students choose payday loans, it teaches them being responsible because of their finances.
{{Makros und Scripting}}
Hier finden Sie nützliche [https://de.wikipedia.org/wiki/Prozedur_(Programmierung) Prozeduren], die Sie in den Makros verwenden können, um das gewünschte Ergebnis zu erzielen.
=Liste der Prozeduren=
==MyFreeAndNil==
Definition:
<syntaxhighlight lang="Delphi">
procedure MyFreeAndNil(var Obj);
</syntaxhighlight>
Erklärung:<br />
Schließt die Instanz eines [https://de.wikipedia.org/wiki/Objekt_(Programmierung) Objektes] und gibt den reservierten [https://de.wikipedia.org/wiki/Arbeitsspeicher Arbeitsspeicher] wieder frei. Die Objekt-Variable wird dabei auf nil ([https://de.wikipedia.org/wiki/Nullwert Nullwert] in [https://de.wikipedia.org/wiki/Embarcadero_Delphi Delphi]/[https://de.wikipedia.org/wiki/Pascal_(Programmiersprache) Pascal]) gesetzt.<br />
<br />
Beispiel:
<syntaxhighlight lang="Delphi">
oBeispiel := TObject.Create();
MyFreeAndNil(oBeispiel);
//oBeispiel ist jetzt nil
</syntaxhighlight>
==Meldung==
Definition:
<syntaxhighlight lang="Delphi">
procedure Meldung(const cMessage: String; cTitle: String = ''; lShowIcon: Boolean = True; lErrorIcon: Boolean = False);
</syntaxhighlight>
Erklärung:<br />
Zeigt eine Meldung auf dem Bildschirm an. Dies kann z. B. als Rückmeldung am Ende eines Makros eingebaut werden, um dem Benutzer mitzuteilen, dass das Ende erreicht ist.<br />
{{Hinweis|Der Parameter ''lShowIcon'' hate hier keine weitere Verwendung und wird intern immer als "True" behandelt.}}
<br />
Beispiel:
<syntaxhighlight lang="Delphi">
function StartProc():Boolean;
begin
    //Beispiel 1
    Meldung('Hallo Welt!');
    //Beispiel 2
    Meldung('Hallo Welt!','Grüße');
    /Beispiel 3
    Meldung('Ups, da ist etwas falsch gelaufen.','Fehler',True,True);
end;
</syntaxhighlight>
Zeigt nacheinander folgende Meldungen:<br />
<gallery widths=300px>
File:ProcMeldungBsp1.jpg|Beispiel 1
File:ProcMeldungBsp2.jpg|Beispiel 2
File:ProcMeldungBsp3.jpg|Beispiel 3
</gallery>
 
==FindFile==
Definition:
<syntaxhighlight lang="Delphi">
procedure FindFile(RootFolder: string; Mask: string; var Erg_StringList : TStringList; Recurse: Boolean = True);
</syntaxhighlight>
Erklärung:<br />
Erstellt eine Liste ''Erg_StringList'' aus Dateipfaden, deren Dateiname und Typ der Maske ''Mask'' enspricht, ausgehend vom Verzeichnis-Pfad ''RootFolder''. Wenn auch alle Unterverzeichnisse durchlaufen werden sollen, ist ''Recurse'' mit ''True'' ansonsten mit ''False'' zu übergeben.<br />
{{Hinweis|'''<nowiki>*</nowiki>''' ist ein Platzhalter für beliebige Zeichen. Um z. B. nur csv-Dateien zu selektieren, müsste die Maske den Wert "*.csv" erhalten. Für alle Dateien ist "*.*" zu verwenden.}}
siehe auch:
*[http://docwiki.embarcadero.com/Libraries/Rio/en/System.Classes.TStringList TStringList]<br />
<br />
<syntaxhighlight lang="Delphi">
function StartProc():Boolean;
var oDateiListe : TStringList;
    i          : integer;
begin
    //Erstellt eine Liste, in der die Dateien des Verzeichnisses aufgelistet werden können
    oDateiListe := TStringList.Create();
    //Schreibt alle im Verzeichnis enthaltenen Dateien mit der Dateiendung "csv" in die Liste
    FindFile('c:\csvDateien\','*.csv',oDateiListe,False);
    //Geht die Liste durch und importiert eine Datei nach der anderen
    for i:=0 to oDateiListe.Count-1 do begin
        ImportiereDatei(oDateiListe[i]);
    end;
    MyFreeAndNil(oDateiListe);
end;
</syntaxhighlight>

Aktuelle Version vom 12. April 2019, 10:01 Uhr


Hier finden Sie nützliche Prozeduren, die Sie in den Makros verwenden können, um das gewünschte Ergebnis zu erzielen.

Liste der Prozeduren

MyFreeAndNil

Definition: 

procedure MyFreeAndNil(var Obj);

Erklärung:
Schließt die Instanz eines Objektes und gibt den reservierten Arbeitsspeicher wieder frei. Die Objekt-Variable wird dabei auf nil (Nullwert in Delphi/Pascal) gesetzt.

Beispiel: 

oBeispiel := TObject.Create();
MyFreeAndNil(oBeispiel);
//oBeispiel ist jetzt nil

Meldung

Definition: 

procedure Meldung(const cMessage: String; cTitle: String = ''; lShowIcon: Boolean = True; lErrorIcon: Boolean = False);

Erklärung:
Zeigt eine Meldung auf dem Bildschirm an. Dies kann z. B. als Rückmeldung am Ende eines Makros eingebaut werden, um dem Benutzer mitzuteilen, dass das Ende erreicht ist.

HINWEIS: Der Parameter lShowIcon hate hier keine weitere Verwendung und wird intern immer als "True" behandelt.


Beispiel: 

function StartProc():Boolean;
begin
    //Beispiel 1
    Meldung('Hallo Welt!');
    //Beispiel 2
    Meldung('Hallo Welt!','Grüße');
    /Beispiel 3
    Meldung('Ups, da ist etwas falsch gelaufen.','Fehler',True,True);
end;

Zeigt nacheinander folgende Meldungen:

  • Beispiel 1

    Beispiel 1

  • Beispiel 2

    Beispiel 2

  • Beispiel 3

    Beispiel 3

FindFile

Definition: 

procedure FindFile(RootFolder: string; Mask: string; var Erg_StringList : TStringList; Recurse: Boolean = True);

Erklärung:
Erstellt eine Liste Erg_StringList aus Dateipfaden, deren Dateiname und Typ der Maske Mask enspricht, ausgehend vom Verzeichnis-Pfad RootFolder. Wenn auch alle Unterverzeichnisse durchlaufen werden sollen, ist Recurse mit True ansonsten mit False zu übergeben.

HINWEIS: * ist ein Platzhalter für beliebige Zeichen. Um z. B. nur csv-Dateien zu selektieren, müsste die Maske den Wert "*.csv" erhalten. Für alle Dateien ist "*.*" zu verwenden.

siehe auch: 


function StartProc():Boolean;
var oDateiListe : TStringList;
    i           : integer;
begin
    //Erstellt eine Liste, in der die Dateien des Verzeichnisses aufgelistet werden können
    oDateiListe := TStringList.Create();
    //Schreibt alle im Verzeichnis enthaltenen Dateien mit der Dateiendung "csv" in die Liste
    FindFile('c:\csvDateien\','*.csv',oDateiListe,False);
    //Geht die Liste durch und importiert eine Datei nach der anderen
    for i:=0 to oDateiListe.Count-1 do begin
        ImportiereDatei(oDateiListe[i]);
    end;
    MyFreeAndNil(oDateiListe);
end;
Abgerufen von „http:///index.php?title=OBS/Makros_und_Scripting/Allgemeines/Übersicht_Prozeduren&oldid=55374“