memo zeilen in bestimmte zeile einer Datei

[SaFu]

Hi ich bins nochmal :hi:

Ich lese eine datei aus und lasse mir bestimmte zeilen in einem memo anzeigen (nur als überprüfung)

Im nachsten schritt ändere ich die zeile über zwei Edit felder und lasse mir das ergbnis in einem anderen Memo anzeigen.

meine Frage ist jetzt wie bekomme ich die neu geschrieben zeilen an die stelle wo ich die zeilen des memo1 ausgelesen habe

Auslesen der datei der 4 bestimmten zeilen

Delphi-Quellcode:

 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.lines.add(LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',38));
  Memo1.lines.add(LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',39));
  Memo1.lines.add(LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',40));
  Memo1.lines.add(LeseZeileAusDatei(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\sysconf.s',41));
end;

function TForm1.LeseZeileAusDatei(Dateiname: String; Zeile: Integer): String;
var Zeilen : TStringList;
begin
  Zeilen := TStringList.Create;
  Zeilen.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\SYSCONF.S');
  try
    Result := Zeilen[Zeile-1];
  except
    Result := '';
  end;
end;

Umbennen der zeilen und im Memo2 ausgeben

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
Var zahl, i : integer ;
begin
 Memo2.Clear;
  zahl := strtoint (Edit1.text) ;
   Memo2.lines.add('DESK-0' +' = TASK(' + Edit1.text + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');
     for i:=0 to  2 do
      begin
       zahl:=zahl +1 ;
       Memo2.lines.add('DESK-' +(inttostr (i +1))+' = TASK(' + (inttostr (zahl)) + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');
      end;
     end;
  end;

Diese erzeugten zeilen müssten wieder an die positionen der oberen function

[DeddyH]

Du könntest die Datei in eine StringListe laden und dort die Zeilen über ihren Index ansprechen.

[SaFu]

kann man das auch mit StringReplace() ??

[DeddyH]

Was meinst Du jetzt?

[SaFu]

StringReplace() benennt doch einen string um oder liege ich da falsch ich glaube ich versuche es doch lieber mit der StringList

[DeddyH]

Ich habe mir gerade Deinen Source noch einmal angesehen und festgestellt, dass Du ja bereits eine StringListe benutzt (die Du übrigens nicht wieder freigibst).

[SaFu]

Oh danke garnicht gesehen

Delphi-Quellcode:

function TForm1.LeseZeileAusDatei(Dateiname: String; Zeile: Integer): String;
var Zeilen : TStringList;
begin
  Zeilen := TStringList.Create;
  Zeilen.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Dateisysconfs\SYSCONF.S');
  try
    Result := Zeilen[Zeile-1];
  except
    Result := '';
  end;
 zeilen.Free;  // hier
end;

kann ich das ersetzen der zeilen eigentlich nicht mit dem gleichen code machen nur anders herum es sind ja immer die gleichen zeilen

[DeddyH]

Sicher, wieso denn nicht?