Dateien

[Johannes013]

ok. ich glaube ich stelle mich blöd.

andere Frage. wie kann ich in einer Stringlist oder Datei den Cursor an eine bestimmte Stelle setzen oder so eine Art Delete machen?


:?: :wall:

[Satty67]

Zu Deiner ersten Frage:

Vielleicht liest Du nochmal ganz in Ruhe die 3-4 Posts durch. Dort ist alles detailliert beschrieben incl. Code-Beispiel. Deine Frage wurde also schon mehrmals genauesten beantwortet! ;)

Zur zweiten Frage (eigentlich nur eine Frage pro Thread):

Ganze Zeile löschen oder nur einzelne Zeichen einer Zeile?

[Johannes013]

Naja eigentlich beides.

Evntuell zeichen und 'ne ganze Zeile.

[Namenloser]

Zitat:

wie kann ich in einer Stringlist oder Datei den Cursor an eine bestimmte Stelle setzen oder so eine Art Delete machen?

Die Arbeitsweise einer Stringlist ist eine andere als die der Datei-Funktionen. So etwas wie einen "Cursor" hat die Stringlist gar nicht. Du kannst nur mit den Stringfunktionen Copy, Delete, Insert usw. so etwas simulieren.

[Satty67]

Wen es immer eine Textdatei ist, dann verwende immer die TStringList und verzichte ganz auf direkten Dateizugriff via AssignFile, Append, Writeln etc.

***

TStringList bringt fast alles mit, was Du brauchst

Delphi-Quellcode:

var
  List : TStringList;
  aString : String;
begin
  List := TStringList.Create;
  
  if FileExists('Testdatei.txt') then
    List.LoadFromFile('Testdatei.txt');

  List.Append('Das ist eine angehängte Textzeile.');
  List.Append('Das ist auch eine angehängte Textzeile.');
  List.Append('Das ist wieder eine angehängte Textzeile.');

  ShowMessage(Format('Liste hat %d Zeilen.',[List.Count]));

  List.Delete(2); // Löscht Zeile 3! Index beginnt bei 0

  ShowMessage(Format('Liste hat %d Zeilen.',[List.Count]));

  aString := List[0];   // Erste Zeile merken
  Delete(aString, 3,2); // Dort an 3. Position 2 Zeichen löschen
  List[0] := aString;   // Zeile wieder in Liste

  List.SaveToFile('Testdatei.txt');
  List.Free;
end;

Sooo.. sollte sogar so funktionieren... also Code in einen Button kopieren und experimentieren.

[Johannes013]

Danke. Jetzt hab' ich's raus.

Löscht er vor der 3. Stelle oder nach der 3. Stelle 2 Zeichen?


Jojo


:glaskugel:

[Satty67]

Von der 3. Stelle an, also das 3 Zeichen ist das erste gelöschte. Denke mit "er" war Delete(aString, 3,2) gemeint.

Dann gleich nicht noch ein Tipp, Cursor auf das Wort und F1. Anders ausgedrückt, solche banalen Fragen sind dann sehr gut in der Delphi Hilfe beschrieben, meisten besser als wir hier mit ein paar Worten können (wollen). ;)

[Johannes013]

danke. ich mag dieses Forum. :-D



Johannes013 :dancer2:


PS: ich habe viele Fragen. Kannst ja ab und zu ma schauen. Du hast's toll erklärt. :thumb: :wink: