globale Datentypen definieren

[Kieler]

Moin,

ich habe wieder ein typisches Anfängerproblem.

Ich habe in meinem Programm eine procedure geschrieben, welche csv Dateien in Array schreibt oder liest. Da ich an die procedure kein Array übergeben kann, habe ich ich einen neuen Type definiert:
type
Daten = array[1..8000,0..20] of string;

Das funktioniert auch ganz prima. Nun möchte ich diese Procedure in eine Unit auslagern, aber wie kann ich auf meinen neuen Datentyp "Daten" aus allen Units zugreifen. Ich habe schon mit public experimentiert. Klappt aber nicht.

[m.fuchs]

Wo hast du diesen Typ den definiert? Das muss im Interface-Teil der Unit erfolgen. Dann können auch andere Programmteile diesen Typ nutzen.

[Kieler]

Im Interface von meiner neuen ausgelagerten Unit?
Das macht Sinn.

Ich habe es nicht der Hauptunit gemacht.

[Kieler]

Ich wollte schreiben, dass ich es in der Hauptunit gemacht habe.

Was muss ich hier im Forum angeben, damit etwas als Code angezeigt wird?

[m.fuchs]

Im Interface von meiner neuen ausgelagerten Unit?

Im Interface der Unit, die alle Programmteile einbinden in denen du diesen Typ nutzen möchtest.

Das macht Sinn.

Waaaaaaaaah.

Ich habe es in der Hauptunit gemacht.

Dann kannst du den Typen nur in der Hauptunit nutzen. Also ich gehe mal davon aus, dass keine andere Unit diese Hauptunit im uses stehen hat.

Was muss ich hier im Forum angeben, damit etwas als Code angezeigt wird?

Da gibt es ob ein Dropdown namens Highlighter. Dort Freepascal/Lazarus auswählen und schon werden passende Tags eingefügt.

[Kieler]

Irgendwie verstehen ich deine Antwort nicht.

Ich habe eine neue Unit CSV erstellt. Diese rufe ich in der Unit1 auf. Natürlich auch mit uses.

Ich muss meine neuen Datentyp in der Unit CSV definieren. Richtig?

[m.fuchs]

Ich habe eine neue Unit CSV erstellt. Diese rufe ich in der Unit1 auf. Natürlich auch mit uses.
Ich muss meine neuen Datentyp in der Unit CSV definieren. Richtig?

Ja.

[Kieler]

Vielen Dank, für die schnelle Unterstützung. Manchmal verrennt man sich alleine einfach. Gerade wenn man anfängt. Da helfen auch Bücher und Google manchmal nicht mehr.

[m.fuchs]

Deswegen gibt es das Forum ja

[Mathias]

Ich denke mal, du hast einfach eine sehr grosse Array definiert, so das möglichst viele CSV-Dateien abdeckt.

Code: Alles auswählen

type
  Daten = array[1..8000,0..20] of string;

Unter Lazarus gibt es dynamische Arrays, bei denen man die Grösse erst zur Laufzeit definiert.
Das sieht dann so aus:

Code: Alles auswählen

type
Daten = array of array of string;

[Kieler]

Interessant. Muss ich dazu etwas in meinem Programm machen oder wird die Größe selbständig erkannt.

[mse]

Interessant. Muss ich dazu etwas in meinem Programm machen

Ja, siehe hier:
https://www.freepascal.org/docs-html/cu ... 510003.3.1

[Mathias]

Ja, siehe hier:
https://www.freepascal.org/docs-html/cu ... 510003.3.1

Im Wiki gibt es dies auch in deutsch.

http://wiki.freepascal.org/Array/de#Kei ... r.C3.B6sse

[Kieler]

Ich bin zu blöd. Jetzt habe ich es in meiner UNIT wie folgt eingebunden:

Code: Alles auswählen

unit CSV;
 
{$mode objfpc}{$H+}
 
interface
  type
  Daten = array[1..8000,0..20] of string;
 procedure LESEN (QuellName : string; var ZielFeld : Daten; var Zeilen : Integer);
 procedure SCHREIBEN (ZielName : string; var QuellFeld : Daten; var Zeilen : Integer; var Spalten : Integer);
 
uses
  Classes, SysUtils;
 
implementation  

Lazarus bringt dann folgende Fehlermeldung : Fatal: Syntax error, "IMPLEMENTATION" expected but "USES" found

Warum?

[m.fuchs]

Pack mal den uses-Block vor den type-Block.