string mit mehr als 255 zeichen ?

[shareholder]

hallo ich möchte in einem record informationen
aus einer richedit speichern, diese info soll ca. 2000 zeichen betragen

das shortstring dafür nicht in frage kommt, ist mir klar,
aber welches andere format sollte ich wählen ?

habe es mit WideString und AnsiString versucht,
jedoch meckert der compiler dann folgendes an:

Typ Record benötigt Finalisation - nicht im dateityp erlaubt
was mir die online-hilfe zur fehlermeldung sagt, versteht ich nicht !

:wall:

[mirage228]

Wenns nicht anders geht kannst du ja versuchen den string aufzuplitten und in einem Array

Delphi-Quellcode:

Wuppdi: Array[1..10] of String[200];

zu speichern...
...aber das ist nicht so die feine englische art. musst du unbedingt in einem record speichern?

mfG
mirage228

[shareholder]

ich bin gerade dabei das tutorial
'typisierte dateien' von delphi-source.de auf mein programm anzuwenden.
dort wird's speichern/lesen/verwalten... von dateien mit hilfe des record erklärt.
möchte ungern versuchen, da ich mich noch sehr als anfänger fühle,
das ganze anderes zu realisieren.
bin froh, wenn das programm am ende noch läuft ;)

das mit dem aufsplitten, habe ich schon gelesen.
eine andere möglichkeit besteht nicht ? schade :(

[Stanlay Hanks]

Also wenn ich z.B. mit

Delphi-Quellcode:

var str : String;
    i : Integer;
begin
   For i := 0 to 2000 do
     str := str +'A';
   ShowMessage(str);
end;

einen 2000 Zeichen langen String erzeuge, meckert er eigentlich nicht. :gruebel:

[tommie-lie]

Zitat:

Zitat von Stanlay Hanks

einen 2000 Zeichen langen String erzeuge, meckert er eigentlich nicht. :gruebel:

Vermutlich geht's um das Abspeichern des Strings. Man erinnert sich vage an seine dunkle Vergangenheit, in der man versucht hat, Pointer in einen Stream zu schreiben anstatt den String, auf den er zeigt... :zwinker:


Ach ja, zum Thema selber (werd' ich jetzt auf die alten Tage vergesslich?):
Probier's mal mit 'nem Characterarray:

Delphi-Quellcode:

var
  str: array[0..2000] of Char
begin
  str := 'Hello, world';
  ShowMessage(str);
end;

Funktioniert bei mir, demnach müsste auch das Text-Property vom Richedit zuweisungskompatibel zu so einem Array sein und das Schreiben sollte eigentlich auch funktionieren.


Edit2: Tags korrigiert, nicht nur vergesslich, sondern auch senil... :pale:

[shareholder]

danke tommie-lie, ich denke so werde ich es machen
... und kopf hoch ;)

an Stanlay Hanks, ja, ich weis, das dein codebeispiel funktioniert
es stört den compiler nur die tatsache (mich stört eigentlich nicht ;)), das die 255-zeichengröße im string überstritten wurde... nunja 8)

eine lösung habe ich ja nun gefunden und ich danke euch allen!

[Stanlay Hanks]

Sorry, wenn ich nochmal nachfrage, aber was stört deinen Compiler? Ich kapier das grade nicht :oops: Bei mir funzt das alles anstandslos.

[Jens Schumann]

Hallo,
ich verwende grundsätzlich keine Records. Es sei denn für API Funktionen.
Wenn ich es aber selber in der Hand habe - keine Records - Nur noch Objekte.
Das gilt insbesondere wenn ich schnell mal etwas speichern muss.
Im Anhang verwende ich anstatt eines Records einen Nachfahren von TComponent.
Die Eigenschaften, deren Inhalte man speichern möchte werden als published deklariert.
Mit TFileStream.WriteComponent und TFileStream.ReadComponent wird dann gespeichert und
geladen. Dadurch das TSaveObject ein Nachfahre von TComponent ist werden die published Eigenschaften
automatisch vom Delphi-Streaming-System erfasst und mit gespeichert. Das Delphi-Streaming-System ist auch dafür verantwortlich, das die Komponenten und deren Einstellungen im OI, die innerhalb der IDE auf das Formular gesetzt werden gespeichert werden.
Dieser Nachfahre von TComponent TSaveObject hat genau eine Eigenschaft. Die Eigenschaft Text kann jetzt soviele Zeichen enthalten wie man will (na ja fast auch ein AnsiString ist irgendwann mal voll).


Programm starten und auf Load klicken. Dann mal auf Prior und Next klicken.
Ich hoffe das kleine Beispiel erklärt sich von selbst.

Hinweis: Man kann auch ein Object als Eigenschaft deklarieren (solange es min. TPersistent abstammt). Dann werden auch die published Eigenschaften dieses Objectes automatisch gespeichert. D.h. mit dem bißchen Code kann schon recht komplexe Datenstrukturen speichern.

[shareholder]

ich danke dir jens schuhmann ! :thuimb:
das klingt ja höchst interessant :)

werde mich mal in die thematik einarbeiten, weil ich
mich damit zuvor noch nie beschäftigt habe.

eine andere frage hätte ich aber noch:

Delphi-Quellcode:

type RecNewProduct = Record
     ProductName: String[255];
     Category: Integer;
     SerialNumber: String[255];
     ArticleDescription: Array [1..2000] Of Char;
     ImagePath: String[255];
     End;

// ... weiter unten ...
For i := 1 To 2000 Do
Buffer[p+1].ArticleDescription[i] := '';

der compiler meldet:

Code:

Inkompatible Typen: 'Char' und 'String'

Wie kann ich also einen Char den Wert 'leer' zuweisen ?

[Jens Schumann]

Zitat:

Zitat von shareholder

Code:

Inkompatible Typen: 'Char' und 'String'

Wie kann ich also einen Char den Wert 'leer' zuweisen ?

Soweit ich weiss gar nicht. Du könntest es höchstens mit einem Leerzeichen versuchen.

[shareholder]

ja klar

hatte es mit

Delphi-Quellcode:

Buffer[p+1].ArticleDescription[i] := '';

versucht.

mit leerzeichen klappt es ! :)

[shareholder]

hallo Jens Schumann,

wärest du so frei und kommentierst den von dir angehängten quelltext,
ich habe leider probleme, deinem code zu folgen. :(

thanx !

[tommie-lie]

Zitat:

Zitat von Jens Schumann

Zitat:

Zitat von shareholder

Wie kann ich also einen Char den Wert 'leer' zuweisen ?

Soweit ich weiss gar nicht. Du könntest es höchstens mit einem Leerzeichen versuchen.

Autsch. In dem Fall vielleicht nicht so schlimm, aber sowas sollte man sich in Hinsicht auf PChars, die man später auch mal irgendwie einer API-Funktion oder ähnlich "low-level"-artigen Funktionen übergeben will, gar nicht erst angewöhnen.

Delphi-Quellcode:

For i := 1 To 2000 Do
  Buffer[p+1].ArticleDescription[i] := #0;

ist da eine wesentlich bessere Lösung als ein Leerzeichen...


Edit: Schon wieder ein falscher Tag... ich mache mir Angst!

[shareholder]

ok, ich hab's bei mir im code geändert.
vielen dank für den hinweis. :hi: