1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

library main;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }
  

uses
  SysUtils;

{$R *.res}

{
        Text Collecting Edition v1.0
}

function FindCaption(Numb: integer): PChar; stdcall;
begin
  result:='';
  case Numb of
  //Errors
  300: result:='308';
  301: result:='Es wurde kein Package gefunden! Bitte überprüfen Sie, ob sich die Datei "main.dll" im Verzeichnis der AllroundDataBase befindet! [E301]';
  302: result:='Das Package ist fehlerhaft! Informieren Sie den Hersteller oder versuchen Sie ein neues Package aus dem Internet zu downloaden! [E302]';
  303: result:='Fehler beim Erstellen der Ordnerstrukturen! Bitte überprüfen Sie, ob AllroundDataBase alle Schreibrechte für sein Verzeichnis besitzt! [E303]';
  304: result:='Ihre Datenbanbk besitzt jetzt 4950 Texte. Es können keine weiteren Texte gespeichert werden. [E304]';
  305: result:='Bitte füllen Sie alle Felder aus! [E305]';
  306: result:='Beim Speichern ist ein Fehler aufgetreten! [E306]';
  307: result:='Bevor Sie einen Text bearbeiten können, muss er in der Liste unterlegt sein!';
  308: result:='Bevor Sie einen Text löschen können, muss er in der Liste unterlegt sein!';

  400: result:='410';
  401: result:='Ihr Text wurde erfolgreich gespeichert!';
  402: result:='Ihr Text wurde erfolgreich bearbeitet!';
  403: result:='Der Text wurde erfolgreich gelöscht!';
  //Form
  1: result:='AllroundDataBase - Text Collecting Edition';
  //Menu
  2: result:='Übersicht';
  3: result:='Update';
  4: result:='Optionen';
  5: result:='Schließen';
  //List
  6: result:='Neuer Text';
  //Show
  7: result:='Titel:';
  8: result:='Autor:';
  9: result:='Bemerkung:';
  //Edit
  10: result:='Erstellungsdatum:';
  11: result:='Kopieren';
  12: result:='Bearbeiten';
  13: result:='Löschen';
  //Vali
  14: result:='Abbrechen';
  15: result:='Speichern';
  end;
end;
  
exports
FindCaption name 'FindCaption';

begin
end.