indsætte tegn foran alle '

while Cnt < Length(Strx) do
begin
  if Strx[Cnt] = '-' then Insert('''',Strx,Cnt-1);
  Inc(Cnt);
end;

jeg kan ikke få det til at virke:

var
  Cnt: Integer;
  str: string;
begin
  str := Memo1.Text;
  cnt := 0;
 
  while Cnt < Length(str) do
  begin
    if str[Cnt] = '''' then
      Insert('\', str, Cnt-1);
    Inc(Cnt);
  end;
  memo2.Text := str;


jeg vil tag indholdet af memo1 og undersøge for '-tegn og spytte resultatet ud i memo2... men den indsætter ikke min skråstreger (den viste det ikke i mit spm, ved ikke hvorfor :)

prøv at check om du kommer ind i if sætningen, prøv evt. at bruge char værdi'en for ' i stedet for ''''

/Martin

Nå nej du bruger bare StringReplace(); / StrReplace();

Lidt nemere :)

jeg kommer ind i if-sætningen, men hvis fx memo1's indholder er fx "' hej med dig" låser programmet sig...
men hvis det er "hej med dig '" sætter den bare den teskt ind i memo2... kunne man ikke lave en løkke med en RichEdit.Search i stedet for?

Sådan :

StringReplace(Str,'''','\''',[rfReplaceAll]);

/MArtin

cool... prøver det straxs!

Også lige helt rigtigt :

Memo2.Text := StringReplace(Memo1.Text,'''','\''',[rfReplaceAll]);

hvor storartet!

takker! :)