string in record mit über 255 Zeichen?

[DGL-luke]

Hallo,

Ich hätt da mal ein Problemerl....

Und zwar will ich in einem record einen string haben. und zwar mit mehr als 255 Zeichen. So 1024 wären meine Kragenweite. Aber das geht ja nicht. Ich - nicht dumm - mach mir sowas:

Text: array[0..1023] of char; Wie kann ich da jetzt einigermaßen performant und schön(=wenig code) einen string zuweisen?

Oder geht das irgendwie anders, ohne mehrere Felder zu deklarieren (Text1,text2,text3,text4:string[255]) und trotzdem records verwenden zu können?

[Grishnak]

Was spricht gegen "Test: string;"?

[himitsu]

Die liebe Compilermagic hilft dir

nimm dein CharArray und weise dem einfach mal 'nenm String zu ^^

Text := 'das ist ein String';
[add]
blödes rotes Kästchen, wo bist du?


@Grishnak:
dann ist der String aber nicht mehr im Array, sonder nur der Pointer daruf

[DGL-luke]

Das hab ich auch erst gedacht.... geht aber nicht

[Fehler] UMsgProtocol.pas(66): E2010 Inkompatible Typen: 'Array' und 'string'

Soviel zu Compilermagic....

Ohne Literale hilft die auch nix mehr.

[SirThornberry]

nutze für sowas doch einfach "move"

[malo]

D7 PE:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s: array[0..10] of char;
begin
  s := 'test';
end;

funktioniert.

[DGL-luke]

@malo:

Zitat von DGL-luke:

Ohne Literale hilft die [Compilermagic] auch nix mehr.

@SirThornberry:

Ah, genau das habe ich gesucht.

Jetzt sag mir nur noch, wie genau ich das benutze....

Delphi-Quellcode:

size:=Min(length(MyString,1023));
Move(MyString,MyCharArray[0],size);

So?

[Grishnak]

Zitat von himitsu:

...dann ist der String aber nicht mehr im Array, sonder nur der Pointer daruf

Ist mir bekannt! Aber: ist das ein Problem für DGL-Luke?

[himitsu]

hmmm, komisch, bei mir ging das mal?

ansonsten so

Delphi-Quellcode:

Var A: Arry[1..999] of Char;
  S: String;

// String > Array
Move(Pointer(S), @A, Length(S) + 1);


// Array > String
S := A;

// oder nochmal Array > String
S := PChar(@A);

(müste jedenfalls so in der Art funktionieren)

[DGL-luke]

@Grishnak: Ähm.... ja, durchaus, da würd ich nämlich äusserst blöd aus der Wächse schauen, wenn ich danach diesen Record speichern oder verschicken will und da immer nur 4 unverständliche bytes drinstünden.

@himitsu: danke.