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

var a: array [1..obergrenze] of shortstring;
var f: file of shortstring;
var i: integer;
assignfile (f, C:\test.txt);
reset (f);
for i:=1 to obergrenze do
begin
write (f, a[i]);
end;
closefile (f);
end;					

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

var
  MyString: String;
begin
  MyString := 'Hallo, ich bin ein dynamischer String! :)';
  FileStream := TFileStream.Create(...
  FileStream.Write(PChar(MyString)^,Length(MyString));					

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

{ ungetestet, da Delphi noch nicht reinstalliert :-( }
var
  myFile : TextFile;
  i: integer;
begin
  AssignFile(myFile, 'C:\MyFile.txt');
  Rewrite(myFile);
  for i := 0 to high(myArrayOfString) do
    WriteLn(myFile, myArrayOfString[i]);
  CloseFile(myFile);
end;