Schleifen problem

[SaFu]

Hi

habe mal ein schleifen Problem

bekomme es leider nicht hin die nächsten vier zeilen von meinem memo umzuschreiben

die erste zeile von memo1 wird mit der zweiten zeile vom memo überschrieben aber wie bekomme ich den rest hin

Delphi-Quellcode:

 procedure TForm1.sysconfsumschreiben;
var alt,neu : String;
    sl: TStringList;
     i: integer;
begin
   alt:=(ExtractFilePath(ParamStr(0)) + '\Dateisysconfs\SYSCONF.S');
   neu:= (ExtractFilePath(ParamStr(0)) + '\Dateisysconfs\neueSysconf\Sysconf.s');
   sl := TStringList.Create;
  try
    sl.LoadFromFile(alt);
     for i := 0 to Pred(sl.Count) do

      sl[i] := StringReplace(sl[i],Memo1.Lines[0],Memo2.Lines[0],[rfReplaceAll]);// hier
      sl.SaveToFile(neu);
  finally
    FreeAndNil(sl);
  end;
end;

danke schonmal

Gruss An DeddyH

[mkinzler]

Was soll der Code machen?

[SaFu]

Es wird aus einer datei 4 zeilen ins memo1 geladen die werden dann mit einem Edit feld umgeschrieben

Dieses wird dann in memo2 angezeigt

jetzt schreibe ich die 4 zeilen wieder um und dann soll die datei wieder gespeichert werden

also ich will einfach nur

Delphi-Quellcode:

  sl[i] := StringReplace(sl[i],Memo1.Lines[0],Memo2.Lines[0],[rfReplaceAll]);// hier

diese zeile viermal hochzählen lassen

[SaFu]

kann mir da keiner helfen??? :cry:

[Luckie]

Dein letztes Posting diesbezüglich ist gerade mal eine Stunde alt. :warn: Wenn es jemand weiß, wird er sich schon melden.

[mkinzler]

Ich versteh halt immer noch nicht, was mit was ersetzt werden soll. Mit dem Code ersetzte du ja in der Stringliste den Inhalt eines Memos mit dem Inhalt eines anderes Memos.

[SaFu]

Genau aber nur die erste bzw. den index 0 und ich wies net wie ich das anstellen kann das ich den index 0,1,2,3 ersetzen kann ich hänge das programm mal an

[mkinzler]

Du könntest auch Schleife weglassen und die Liste auf einmal ersetzen:

Delphi-Quellcode:

sl.Text := StringReplace(sl.Text,Memo1.Lines[0],Memo2.Lines[0],[rfReplaceAll]);

[SaFu]

meinst du so

Delphi-Quellcode:

.
.
.
 sl.Text := StringReplace(sl.Text,Memo1.Lines[0],Memo2.Lines[0],[rfReplaceAll]);
   sl.Text := StringReplace(sl.Text,Memo1.Lines[1],Memo2.Lines[1],[rfReplaceAll]);
    sl.Text := StringReplace(sl.Text,Memo1.Lines[2],Memo2.Lines[2],[rfReplaceAll]);
      sl.Text := StringReplace(sl.Text,Memo1.Lines[3],Memo2.Lines[3],[rfReplaceAll]);
.
.
.
end;

das geht doch nicht.

[mkinzler]

Was steht den in den Memos drin?