Texte > 255 Zeichen im Record

[Oldmann]

Hallo,

Ich arbeite mit Delphi 6 Prof..
Ich habe dazu eine Frage:
Wie kann man in einem Record grössere Texte als 255 Zeichen speichern ?
Wenn es da eine Möglichkeit gibt, würde ich um ein Beispiel bitten.

Mit freundlichen Grüssen,
Oldmann

[Geert Dade]

Moin Oldman,

ich verstehe - glaube ich - Deine Frage nicht. Folgender Quellcode funktioniert problemlos (300 Zeichen):

type
ttt = record
mytext : string;
end;

TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
s : string;
p : ttt;
begin
Memo1.Clear;
for i := 1 to 30 do
for j := 0 to 9 do s := s + IntToStr(j);
p.mytext := s;
Memo1.Text := p.mytext + ' - ' + IntToStr(Length(p.mytext));
end;

end.

Gruß,

Geert