1:

TMeinArray = Array[1..255] Of Char					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  a: TMeinArray 
  i: integer;
begin
  { ... }

  for i := high(a) downto low(a) do
    if a[i] <> #32 then
      begin
        // I hat jetzt die Position im Array wo sich zum letzten Mal 
        // kein Leerzeichen befindet - also das Ende von dem String. ;-)
 
        break;
      End;
end;					

1:
2:
3:
4:
5:

var
  s: string;
  MeinArray: TMeinArray;

s := TrimRight(MeinArray);					

1:
2:
3:
4:
5:
6:

TMeinRecord = Record
Name:TMeinArray;
Wert:Integer;
end;

TFile = File of TMeinRecord;					

1:
2:
3:
4:

TMeinRecord = Record
  Name:ShortString;
  Wert:Integer;
end;					

1:
2:
3:
4:

TMeinRecord = record
  Name: ShortString;  // oder auch Name: string[255]
  Wert: Integer;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

type
   TMeinRecord = class
      Name: string;
      Wert: integer;

      procedure Serialize(s: TStream);
      procedure Deserialize(s: TStream);
   end;


// Serialize - Werte in einen Stream speichern
procedure TMeinRecord.Serialize(s: TStream);
var
   len: word;   // Benutzte nur ein word für die String Länge, weil ich denke das ein Name niemals über 65k Zeichen kommt
begin
   len := Length(Name);
   s.Write(len, 2);

   s.Write(Name[1], len);
   s.Write(Wert, 4);
end;

// Deserialize - Werte aus einem Stream auslesen
procedure TMeinRecord.Deserialize(s: TStream);
var
   len: word;   // s.o.
begin
   s.Read(len, 2);

   SetLength(Name, len);
   s.Read(Name[1], len);
   s.Read(Wert, 4);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:

type
    TMeinRecordDatei = class
    private
        fArray: array of TMeinRecord;

        procedure SetLength(value: cardinal);
        function GetLength: cardinal;

        procedure SetArray(index: cardinal; value: TMeinRecord);
        function GetArray(index: cardinal): TMeinRecord;

    public
        property Items[index: cardinal]: TMeinRecord read GetArray write SetArray; default;
        Length: cardinal read GetLength write SetLength;

        procedure LoadFromFile(APath: TFileName);
        procedure SaveToFile(APath: TFileName);
    end;

procedure TMeinRecordDatei.SetLength(value: cardinal);
var
    oldlen: cardinal;
    newlen: cardinal;
    i: cardinal;
begin
    oldlen := Length(fArray);
    newlen := value;
    
    SetLength(fArray, value);

    if ( newlen > oldlen ) then
    begin
        for i := oldlen to newlen-1 do
            fArray[i] := TMeinRecord.Create;
    end
    else if ( oldlen > newlen ) then
    begin
        for i := newlen to oldlen-1 do
            fArray[i].Free;
    end;
end;

function TMeinRecordDatei.GetLength: cardinal;
begin
    result := Length(fArray);
end;

procedure TMeinRecordDatei.SetArray(index: cardinal; value: TMeinRecord);
begin
    if ( index >= Length(fArray) ) then
        exit;

    fArray[index] := value;
end;

function TMeinRecordDatei.GetArray(index: cardinal): TMeinRecord;
begin
    result := nil;

    if ( index >= Length(fArray) ) then
        exit;

    result := fArray[index];
end;

procedure TMeinRecordDatei.LoadFromFile(APath: TFileName);
var
    f: TFileStream;
    len: cardinal;
    i: cardinal;
begin
    f := nil;
    Length := 0; // Array wird leer gemacht, hier kommt neuer Inhalt    

    try
        try
            if FileExists(APath) then
                f := TFileStream.Create(APath, fmOpenReadWrite or fmShareDenyNone)
            else
                exit;

            f.Read(len, 4);
            Length := len;

            for i := 0 to len-1 do
                fArray[i].Deserialize(f); 
        except
            Length := 0; // Fehler beim Laden, das Array wird leer gemacht, wer weiß was alles drinne steht    
        end;
    finally
        if Assigned(f) then
            FreeAndNil(f);
    end;
end;

procedure TMeinRecordDatei.SaveToFile(APath: TFileName);
var
    f: TFileStream;
    len: cardinal;
    i: cardinal;
begin
    f := nil;

    try
        try
            if FileExists(APath) then
                f := TFileStream.Create(APath, fmOpenReadWrite or fmShareDenyNone)
            else
                f := TFileStream.Create(APath, fmCreate or fmShareDenyNone);

            len := Length;
            f.Write(len, 4);

            for i := 0 to len-1 do
                fArray[i].Serialize(f); 
        except
            // Something has to be done here
        end;
    finally
        if Assigned(f) then
            FreeAndNil(f);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
    datei: TMeinRecordDatei;
begin
    datei := TMeinRecordDatei.Create;
    datei.LoadFromFile('C:\somesave.dat');

    datei[3].Name := 'Helga Meier';
    datei[3].Wert := 42;

    datei.SaveToFile('C:\somesave.dat');
    datei.Free;
end;