Probleme bei schreiben in Datei

[Luckie]

Nimm mal Append anstatt Reset, du willst ja Daten anhängen. Reset, setzt den Dateizeiger aber auf den Anfang der Datei und dann schläg wohl das Writeln fehl.

Desweiteren solltets du dir angewöhnen deinen Quellcode gescheit zu formatieren:

Delphi-Quellcode:

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);

var
  I            : Word;
  C            : char;
  daten        : string;
  f            : TextFile;
begin
  daten := '';
  AssignFile(f, 'C:\Wetterdaten.txt');
  if not FileExists('C:\Wetterdaten.txt') then
    ReWrite(f)
  else
    Reset(f);
  for I := 1 to Count do
  begin
    C := ApdComPort1.GetChar;
    daten := daten + C;
    sleep(15);
  end;
  // Daten in Memo schreiben
  Memo1.SelText := daten;

  //Daten in Datei schreiben
  WriteLn(f, daten);
  CloseFile(f);
end;

Und stell bitte deine zweite Frage in einen neuen Thread.