Datei aendern und speichern

JiimmyC · Beiträge: 35 WinXP SP1

Wie koennte man dies tun ohne es in ein Memo zu lesen?

Delphi-Quelltext

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

Form1.Memo1.Lines.LoadFromFile('d:\test.txt');
source:=Form1.Memo1.Text;
position:=Pos(GesuchteLine,source);
position:=position + Length(GesuchteLine);
while source[position] <> ' ' do begin
      Delete(source,position,1);
end;
Insert('CHANGE',source,position);
Form1.Memo1.Text:= source;
Form1.Memo1.Lines.SaveToFile(d:\test.txt);

Ich habe ein paar Seiten durchgelesen doch vertehe ich vieles nicht. Ich komme aus der Win32 Api Welt und bin es gewohnt eine File in ein Buffer zu lesen und von dort aus alles zu machen. Der Umweg ueber das Memo funktioniert doch scheint es mir etwas doof. :-/

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Di 06.05.2008 um 15:10

_________________
Information in this online help system is subject to change without notice.

Narses · Verfasst: Di 06.05.08 15:31

Moin!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  var
    SL: TStringList;
    Position: Integer;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('d:\test.txt');
    Position := SL.IndexOf(GesuchteZeile);
    if (i >= 0) then begin
      ShowMessage(SL.Strings[Position]);
      // Dinge tun...
      SL.SaveToFile('d:\test.txt');
    end
    else
      ShowMessage('Zeile nicht gefunden!?');
  finally
    SL.Free;
  end;

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Yogu · Verfasst: Di 06.05.08 15:43

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  var
    SL: TStringList;
    Position: Integer;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('d:\test.txt');
    Position := SL.IndexOf(GesuchteZeile);
    if (Position >= 0) then begin
      ShowMessage(SL.Strings[Position]);
      // Dinge tun...
      SL.SaveToFile('d:\test.txt');
    end
    else
      ShowMessage('Zeile nicht gefunden!?');
  finally
    SL.Free;
  end;

Narses · Verfasst: Di 06.05.08 15:53

_________________
There are 10 types of people - those who understand binary and those who don´t.

JiimmyC · Beiträge: 35 WinXP SP1

Danke recht herzlich. Musste SL.IndexOfName benutzen das mir irgendwie limitiert erscheint. Doch ging es mit etwas muehe.

_________________
Information in this online help system is subject to change without notice.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme