Öffnen und verändern externer Textdateien

Snippy · Beiträge: 61

Hi
Wie kann ich eine Textdatei oder Anliches editieren??
Z.B. den darin geschriebenen Text ändern???
Vielen Dank schonmal im Vorraus!

_________________
Carpe Diem!

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

soll der User den Text auch lesen können? Wenn ja, kannste eine Memo-Kompo nehmen. Wenn nicht, dann verwende ich gerne eine Variable vom Typ TStringList. Damit kannste genauso schön rumhantieren, wie in einem Memo.

Hier nochmal ein Codebeispiel (ungetestet):

markieren

Quelltext

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

var
  StrList: TStringList;
begin
  StrList := TStringList.Create;
  try
    StrList.LoadFromFile('C:\Test.txt');
    ...
    ...
  finally
    StrList.Free;
  end;
end;

Das dürfte dir helfen, denke ich mal

_________________
Viele Grüße
Jakob

Snippy · Beiträge: 61

Gut!
Aber wie kann ich den Inhalt einer Textdatei ändern oder neue Dinge(wie z.B. einen Satz) hinzufügen?

_________________
Carpe Diem!

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

Guck einfach mal in der Hilfe unter TStringList. TStringlist hat eine Eigentschaft namens Text in der der Inhalt der Textdatei steht. Dann kannste damit rumschnibbeln, einfügen und sonst nochwas machen. Achja, abspeichern kannste du die ganze Sache wieder mit Stringlist.SaveToFile('C:\Test.txt').

Ich hoffe, das hilft dir.

_________________
Viele Grüße
Jakob

Snippy · Beiträge: 61

Ok!
Es hat mir schon sehr geholfen, aber könnte einer mir mal den genauen sourcecode geben, wenn ich in die datei c:\test.txt den satz "Dies ist ein Test" an die unterste Zeile setzen will???
Danke!

_________________
Carpe Diem!

mars · Verfasst: So 13.10.02 20:58

Eine Möglichkeit (ungetestet):

markieren

Quelltext

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

var t:TextFile;
begin
 AssignFile(t,'C:\test.txt');
 Append(t);
 WriteLn(t,'Dies ist ein Test');
 CloseFile(t);
end;

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Snippy hat folgendes geschrieben:

wenn ich in die datei c:\test.txt den satz "Dies ist ein Test" an die unterste Zeile setzen will???

Wenn Du bei dem tStringList bleiben willst schau dir mal den Hilfetext zu der Methode Add an. Dort gibt es sogar ein Beispiel!

Gruß
TINO

Snippy · Beiträge: 61

Viiiiiiieeeeeeeellleeeennnnnn Dank nochmal!
Ihr hab mir sehr geholfen!

_________________
Carpe Diem!

GruppeCN · Beiträge: 322

Benutz doch einfach ein memo(du kannst es ja unsichtbar machen).

markieren

Quelltext

1:
2:
3:
4:

Memo1.Visible := false;
Memo1.Lines.LoadfromFile('C:\test.txt');
Memo1.Liners.Add('Text');
Memo1.Lines.SavetoFile('C:\test.txt');

Das ganze funktioniert genauso mit einer TStringList

_________________
Warum sind die Sachen, die du suchst, immer da, wo du zuletzt nachsiehst?
Weil du aufhörst zu suchen, wenn du sie gefunden hast.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

GruppeCN hat folgendes geschrieben:

Benutz doch einfach ein memo(du kannst es ja unsichtbar machen).

Aber warum sollte er dann ein Memo benutzt?

Gruß
TINO

Ehemaliges Mitglied Erhaltene Danke: 1

Er könnte ja auch ein RichEdit erzeugen, 50meg Platz in der Auslagerungsdatei reservieren, den CD-ROM-Schuber öffnen, die Zeile an die Textdatei anhängen, das CD-ROM wieder schließen, den Platz im Swapfile freigeben, den Papierkorb leeren und das RichEdit für was Sinnvolles nutzen ... :twisted:

Mensch, Tino, hast du was gegen Gruppen :wink:

Dass manche Antworten erst kommen, wenn die Probleme gelöst sind, kenne ich schon aus dem Entwicklerforum. :roll:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme