Code: Alles auswählen
program Project1;
{$OPTIMIZATION ON}
const
s1='1fjasdfjkladshfjkdsafhdskjfhadsjklfdgasfkljasgfkdasfgaksdfdaksjfhaksldfhksljaklkldsaghjklsfdghjhgfhgfhfhfhgfhghgfhgfhgghklfdsgahjklfdasgklfdashjklfdshjkkdlghfdkslj';
s2='2dfdsfdsaffjasdfjkladshfjkdsafhdskjfhadsjklfdgasfkljasgfkdasfgaksdfdakshaksldfhdaksljaklkldsaghjklsfdghjklfdsgahjklfdasghklfdashgjklfdshjkkdlghfdsljdsfdsafdasfdsaf';
s3='3dfdsfdsaffjasdfjkladshfjkdsafhdskjffgfdgklfdgasfkljasgfkdasfgaksdfdaksjaksldfhdaksljaklkldsaghjklsfdghjklfdsgahjklfdasghklfdashgjklfdshjkkdlghfdsljdsfdsafdasfdsaf';
type
Tsr= record
ss1:String;
ss2:String;
ss3:String;
end;
const
sr:Tsr =
(ss1:s1; ss2:s2; ss3:s3); // 3 verschiedene Strings
begin
WriteLn(sr.ss1);
WriteLn(sr.ss2);
WriteLn(sr.ss3);
end.
Code: Alles auswählen
const
sr:Tsr =
(ss1:s1; ss2:s1; ss3:s1); // 3 gleiche Strings