![]() |
Schleifen problem
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:
danke schonmal
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; Gruss An DeddyH |
Re: Schleifen problem
Was soll der Code machen?
|
Re: Schleifen problem
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:
diese zeile viermal hochzählen lassen
sl[i] := StringReplace(sl[i],Memo1.Lines[0],Memo2.Lines[0],[rfReplaceAll]);// hier
|
Re: Schleifen problem
kann mir da keiner helfen??? :cry:
|
Re: Schleifen problem
Dein letztes Posting diesbezüglich ist gerade mal eine Stunde alt. :warn: Wenn es jemand weiß, wird er sich schon melden.
|
Re: Schleifen problem
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.
|
Re: Schleifen problem
Liste der Anhänge anzeigen (Anzahl: 1)
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
|
Re: Schleifen problem
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]);
|
Re: Schleifen problem
meinst du so
Delphi-Quellcode:
das geht doch nicht.. . . 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; |
Re: Schleifen problem
Was steht den in den Memos drin?
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz