Schleifen problem

[SaFu]

Das hier im Memo1

Delphi-Quellcode:

DESK-0 = TASK(0) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw) //zeile1 (index 0)
DESK-1 = TASK(1) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw) //zeile2 (index 1)
DESK-2 = TASK(2) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw) //zeile3 (index 2)
DESK-3 = TASK(3) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw) //zeile4 (index 3)

und soll gegen das hier z.b (zahl ist variabel eingebbar und wird immer hochgezählt) erstzt werden

Delphi-Quellcode:

DESK-0 = TASK(33) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw) //zeile1 (index 0)
DESK-1 = TASK(34) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw) //zeile2 (index 1)
DESK-2 = TASK(35) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw) //zeile3 (index 2)
DESK-3 = TASK(36) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw) //zeile4 (index 3)

[mkinzler]

Und in der datei stehen die Inhalte des 1. Memos drin?

[SaFu]

das steht in der ganzen datei

Delphi-Quellcode:

[SYSTEM]
RPCI = TCP(16000)

[DEVICE]
MD6 = C:\Programme\XTalk

IF0 = D:\Medi\INST          ; Installationsdateien (INST*.P...)
IS0 = D:\Medi\SYS           ; Hilfsprogramme (RTSI, SVSI, ...)
IP0 = D:\Medi\PRG4          ; Medi-Programme

MS0 = D:\Medi\PDATEN        ; PALPHA,PSTAMM,PDATEN,PLINK,PDFORM,HBLISTE
MS1 = D:\Medi\HDATEN        ; BT,TK,RECALL,WBUCH,FIBU,LABDAT,FORM,PLRD,UVRD
MS2 = D:\Medi\PRAXIS        ; KKD,LST,DIA,BEF
MS3 = D:\Medi\FORM          ; Formular-Quellcodes
MS4 = D:\Medi\PARA          ; .P, Quellen der .P Daten
MS5 = D:\Medi\MED           ; PharmaStar Dateien
MS7 = D:\Medi\TEMP          ; temporäre Dateien
MS8 = D:\Medi\STAT          ; Statistikdateien
MS9 = D:\Medi\ARCHIV        ; Archivdateien




FL0 = A:

PP0 = LPT1:

LA0 = COM2:                     ;Lesegerät 
LA1 = COM9:         ;Ldfü mit isdn karte            

;   Die Consolentypen und die dazugehörigen Parameter werden durch das
;   in eckigen Klammern stehende Wort CONSOLE eingeleitet.

[CONSOLE]

DESK-0 = TASK(0) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)// die zeilen ändern
DESK-1 = TASK(1) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)
DESK-2 = TASK(2) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)
DESK-3 = TASK(3) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)

[SaFu]

Zitat:

Zitat von fuknersascha

das steht in der ganzen datei aber nur die lezten im Memo1

Delphi-Quellcode:

[SYSTEM]
RPCI = TCP(16000)

[DEVICE]
MD6 = C:\Programme\XTalk

IF0 = D:\Medi\INST          ; Installationsdateien (INST*.P...)
IS0 = D:\Medi\SYS           ; Hilfsprogramme (RTSI, SVSI, ...)
IP0 = D:\Medi\PRG4          ; Medi-Programme

MS0 = D:\Medi\PDATEN        ; PALPHA,PSTAMM,PDATEN,PLINK,PDFORM,HBLISTE
MS1 = D:\Medi\HDATEN        ; BT,TK,RECALL,WBUCH,FIBU,LABDAT,FORM,PLRD,UVRD
MS2 = D:\Medi\PRAXIS        ; KKD,LST,DIA,BEF
MS3 = D:\Medi\FORM          ; Formular-Quellcodes
MS4 = D:\Medi\PARA          ; .P, Quellen der .P Daten
MS5 = D:\Medi\MED           ; PharmaStar Dateien
MS7 = D:\Medi\TEMP          ; temporäre Dateien
MS8 = D:\Medi\STAT          ; Statistikdateien
MS9 = D:\Medi\ARCHIV        ; Archivdateien




FL0 = A:

PP0 = LPT1:

LA0 = COM2:                     ;Lesegerät 
LA1 = COM9:         ;Ldfü mit isdn karte            

;   Die Consolentypen und die dazugehörigen Parameter werden durch das
;   in eckigen Klammern stehende Wort CONSOLE eingeleitet.

[CONSOLE]

DESK-0 = TASK(0) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)// die zeilen ändern
DESK-1 = TASK(1) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)
DESK-2 = TASK(2) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)
DESK-3 = TASK(3) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)

[mkinzler]

Eigentlich sollte der Replace gehen.

[SaFu]

Der geht ja auch aber so wie ich es mach nur die erste zeile

[mkinzler]

Un

Zitat:

d
DESK-1 = TASK(1) LPT(PP0) WX() WY() FONT() TITLE(Server) START(pw)

nicht?

[SaFu]

nein es wird immer nur die erste überschrieben
damit

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;

[mkinzler]

Im Code ersetzt du ja nur die erste Variante

Delphi-Quellcode:

for i := 0 to Pred(sl.Count) do
begin
    sl[i] := StringReplace(sl[i],Memo1.Lines[0],Memo2.Lines[0],[rfReplaceAll]);
    sl[i] := StringReplace(sl[i],Memo1.Lines[1],Memo2.Lines[1],[rfReplaceAll]);
    sl[i] := StringReplace(sl[i],Memo1.Lines[2],Memo2.Lines[2],[rfReplaceAll]);
    sl[i] := StringReplace(sl[i],Memo1.Lines[3],Memo2.Lines[3],[rfReplaceAll]);
end;     
sl.SaveToFile(neu);

[SaFu]

Komisch so hatte ich das auch schonmal da ging das net

Vielleicht hatte ich es auch net richtig geschrieben aber jetzt geht es dank dir tausendmal

Gruss sascha wünsch euch noch einen schönen abend