Fehler bei REWRITE

[Sharky]

Hai Chrissi91,

wie marabu ja schon angemerkt hat sollte man mit [oh]assignfile, Append, Writeln[/oh] und Co nicht mehr arbeiten. Es gibt da viel bessere möglichkeiten. Eine wäre zum Beispiel so:
*gg* Ich weiss, die sieht kompliziert aus. Ist sie aber nicht

Delphi-Quellcode:

resourcestring
  Env_AppData = 'APPDATA';

const
  INDEX_FILENAME = 'Eintrage.txt';

function AppDataDir: string;
begin
  //  Result := IncludeTrailingBackslash(GetEnvironmentVariable(ENV_APPDATA));
  Result := ExtractFilePath(ParamStr(0)); // Nur zum Test !!!!
end;

procedure Tfrm_Main.AdressList2Index(aValue: string);
var
  idx_List: TStream;
  mode : Word;
  tmpString: string;
  fileName : string;
begin
  fileName := AppDataDir + INDEX_FILENAME;
  try
    if (FileExists(fileName)) then
      mode := fmOpenReadWrite
    else
      mode := fmCreate;
    idx_List := TFileStream.Create(fileName,mode);
    idx_List.Seek(0,soFromEnd);
    tmpstring := aValue + #10 + #13;
    idx_List.Write(tmpString[1], Length(tmpString));
  finally
    idx_List.Free;
  end;
end;

procedure Tfrm_Main.btn_StoreAdressList2IndexClick(Sender: TObject);
var
  feld1 : string;
  feld2 : string;
begin
  if (dlg_Save_Adresslist.Execute) then
  begin
    feld1 := Edit1.Text;
    feld2 := Edit2.Text;
    AdressList2Index(feld1 + ' ' + feld2);
  end;
end;

Ansonsten solltest Du dir einmal eine TStringList und deren Methoden [oh].Items.LoadFromFile, Items.SaveToFile , Items.Add[/oh] ansehen.