i. O.,
leider hab ich vergessen zu erwähnen, dass ich ein Blobfeld habe, in dem ein relativ langer Beschreibungstext steht.
Dieser ist auch noch mit CRs #10#13 behaftet, so dass ich die auch noch rausputzen muss.
Mein Ansatz wäre dieser
Delphi-Quellcode:
function LinesToString(Text: PChar): PChar;
var i: integer;
begin
for i := 0 to StrLen(Text) do
begin
if (Text[i] = #13) and (Text[i + 1] = #10) then
begin
Text[i] := ',';
Text[i + 1] := ' ';
end;
end;
LinesToString := text;
end;
oder hast du eine bessere Idee?
Danke für deine schnelle Hilfe.