vielleicht meinst du es so:
Delphi-Quellcode:
for i:=0 to Memo1.Lines.Count-1 do
Memo1.Lines[i]:= copy( Memo1.Lines[i], Pos( '=', Memo1.Lines[i])+1, Length( Memo1.Lines[i])-Pos( '=', Memo1.Lines[i])-1)+ copy( Memo1.Lines[i], Pos( '=', Memo1.Lines[i]), Length( Memo1.Lines[i])-Pos( '=', Memo1.Lines[i]));
das sieht nun erstmal wüst aus.. mit hilfe vom debugger und der delphi hilfe sollte es aber verständlich sein. ansonsten frag nach
mfg
Edit:
das sieht echt krass aus.. mal ein bissel aufdröseln, zum verständnis..
Delphi-Quellcode:
var StringNachDemGleich, StringAbDemGleich: String;
i: Integer;
for i:=0 to Memo1.Lines.Count-1 do
begin
StringNachDemGleich:= copy( Memo1.Lines[i], Pos( '=', Memo1.Lines[i])+1, Length( Memo1.Lines[i])-Pos( '=', Memo1.Lines[i])-1);
StringAbDemGleich:= copy( Memo1.Lines[i], Pos( '=', Memo1.Lines[i]), Length( Memo1.Lines[i])-Pos( '=', Memo1.Lines[i]));
Memo1.Lines[i]:= StringNachDemGleich+StringAbDemGleich;
end;