Memofeld Char für Char durchgehen

[NeoXan]

Moin,

also ich habe einen String z.B. 'asdfasdg;fdagadfg' und der steht in einem Memofeld. Nun soll jeder einzelne char überprüft werden und wenn er ';' findet dann soll ein Zeilenumbruch eingefügt werden.

Das Prob ist, dass ich den String zuerst von einem Memofeld in ein Subitem einlesen und dann aus dem SubItem in ein anderes Memo. Leider wird daraus dann ein String und ich dachte man könnte das dann so lösen...

mfg
NeoXan

[mischerr]

Wenn ich mich nicht irre, dann in etwa so!?

Code:

procedure InsertCRLF;
var temp1,
    temp2: string;
    i    : integer;
begin
  temp1:= Memo1.Text;
  temp2:= '';
  for i:= 1 to length(temp1) do begin
      if temp1[i]=';' then temp2:= temp2+#13#10
         else temp2:= temp2+temp1[i];
  end;
  Memo1.Text:= temp2;
end;

Grüsse!

[toms]

warum nicht einfach so?

Delphi-Quellcode:

Memo1.Text := StringReplace(Memo1.Text,';', #13#10, [rfReplaceAll])

[Nothine]

Zitat:

Zitat von NeoXan

Moin,

also ich habe einen String z.B. 'asdfasdg;fdagadfg' und der steht in einem Memofeld. Nun soll jeder einzelne char überprüft werden und wenn er ';' findet dann soll ein Zeilenumbruch eingefügt werden.

Das Prob ist, dass ich den String zuerst von einem Memofeld in ein Subitem einlesen und dann aus dem SubItem in ein anderes Memo. Leider wird daraus dann ein String und ich dachte man könnte das dann so lösen...

mfg
NeoXan

kannst du nicht einfach

Delphi-Quellcode:

MemoFeld2.Lines.AddStrings(MemoFeld1.Lines)

sagen?

[mischerr]

Ok, 1:0! :wink:
Aber er schrieb halt, er wolle jeden einzelnen Char überprüfen - vielleicht hat er ja doch noch mehr vor... :gruebel: