Jeg er i gang med et program, der skal kunne ændre nogle form filer.
Det skal selv kunne erstatte nogle tegn.
Jeg har brugt denne kode til erstatning af enkelte tegn.
_______________________________________________________
begin
case S[I] of
'=': S := Copy(S, 1, I - 1) + ': ' +
Copy(S, I + 1, Length(S) - I);
'+': S := Copy(S, 1, I - 1) + ' ' +
Copy(S, I + 1, Length(S) - I);
'&': S := Copy(S, 1, I - 1) + ' ' +
Copy(S, I + 1, Length(S) - I);
end;
_______________________________________________________
Men hvad gør jeg hvis jeg skal erstatte 3-4 tegn?
-Og hvirdan får jeg den til at indsætte et linjeskift i stedet for et andet tegn?
For at erstatte bestemte tegn i en streng med andre tegn, skal du bruge StringReplace. Fx:
StringReplace(S, 'old', 'new', [rfReplaceAll, rfIgnoreCase]);
Erstatter alle forekomster af ordet old med ordet new i strengen S.
Linieskift kan du lave ved at indsætte #10#13, f.eks. S := 'ny'+#13#10+'linie';
/data