Entwickler-Ecke

Dateizugriff - Text in Textdatei schreiben


Iluj258 - Mo 28.09.09 13:38
Titel: Text in Textdatei schreiben
Hallo erstmal,
Ich habe ein Problem mit Delphi (genauer gesagt Embarcadero RAD Studio 2010 von meinem Vater^^)
Ich möchte gerne wenn ein Button gedrückt wir einen Text , den ich zuvor festgelegt habe in eine Textdatei schreiben. Wenn das erledigt ist will ich mit einem zweiten Button einen anderen Text in die nächste Zeile dieser Datei schreiben. Das soll ohne das überschreiben des ersten Texts passieren
Ich hoffe ihr könnt mir helfen
Gruß Iluj258

Moderiert von user profile iconNarses: Topic aus VCL (Visual Component Library) verschoben am Mo 28.09.2009 um 13:56
Moderiert von user profile iconNarses: Überflüssige Zeilenumbrüche/Leerzeilen entfernt.


Narses - Mo 28.09.09 14:00

Moin und :welcome: im Forum!

Und? Wie sehen deine Ansätze so aus? Hast du schon was ausprobiert? Code? ;) Du wirst doch wohl nicht davon ausgehen, dass wir dir fertigen Code liefern, oder? :zwinker:

Mal einen Ansatz zum Suchen: Suche in: Delphi-Forum, Delphi-Library TEDIT SPEICHERN :les: :think:

cu
Narses


Dude566 - Fr 09.10.09 14:35

Kannst ja doch deinen Vater fragen wenn ihm das RAD Studio gehört. :D

Naja ich würde mal sagen das ganze kannst du mit SaveToFile machen, kommt auch darauf an ob der Benutzer den Text wählen kann.


Andreas L. - Fr 09.10.09 15:22

Am einfachsten ist es wenn du eine TStringList verwendest.


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
var
  sl: TStrings;
begin
  sl := TStringList.Create; //StringList erstellen
  try
    //Zeilen hinzufügen
    sl.Add('Dein Text');
    sl.Add('Zweite Zeile');

    sl.SaveToFile('C:\test.txt');  //Datei speichern
  finally
    sl.Free; //Speicher freigeben
  end;
end;


Boldar - Fr 09.10.09 18:58

user profile iconAndreas L. hat folgendes geschrieben Zum zitierten Posting springen:
Am einfachsten ist es wenn du eine TStringList verwendest.


Delphi-Quelltext
1:
2:
var
  sl: TStrings;


Da aber besser TStringList verwenden...


dummzeuch - Fr 09.10.09 19:10

user profile iconAndreas L. hat folgendes geschrieben Zum zitierten Posting springen:
Am einfachsten ist es wenn du eine TStringList verwendest.


Nein, am einfachsten geht es, wenn er assignfile/rewrite/append/writeln verwendet:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
var
  t: Textfile;
begin
  AssignFile(t, Dateiname);
  Rewrite(t);
  WriteLn(t, 'Zeile 1');
  CloseFile(t);
end;



Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
var
  t: Textfile;
begin
  AssignFile(t, Dateiname);
  Append(t);
  WriteLn(t, 'Zeile 2');
  CloseFile(t);
end;


Andreas L. - Sa 10.10.09 10:06

user profile iconBoldar hat folgendes geschrieben Zum zitierten Posting springen:
user profile iconAndreas L. hat folgendes geschrieben Zum zitierten Posting springen:
Am einfachsten ist es wenn du eine TStringList verwendest.


Delphi-Quelltext
1:
2:
var
  sl: TStrings;


Da aber besser TStringList verwenden...


Begründung?


Boldar - Sa 17.10.09 19:21

Der übersichtlichkeit halber bzw. um einen Anfänger nicht mit polymorphie verwirren :)