20. februar 2004 - 15:43Der er
4 kommentarer og 2 løsninger
Fjern " fra tekst-streng
Jeg har et lille problem som er: Jeg har en tekststreng, der starter og slutter med ", det kunne fx være "C:\billeder\billede.jpg" nu vil jeg gerne have gjordt så det bliver til C:\billeder\billede.jpg kortsagt uden ", men hvordan gør man det... jeg vil lige gøre opmærksom på, at det ikk er nok at fjerne det første og sidste tegn, fordi det ikke er hver gang de skal fjernes...
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
function TrimEx(S: String; C: Char): String; begin Result := S; while Pos(C, Result) = 1 do Delete(Result, 1, 1); while LastDelimiter(C, Result) = Length(Result) do Delete(Result, Length(Result), 1); end;
Eksempel: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(TrimEx('"C:\billeder\billede.jpg"')); end;
function TrimEx(S: String; C: Char): String; begin Result := S; while Pos(C, Result) = 1 do Delete(Result, 1, 1); while (LastDelimiter(C, Result) = Length(Result)) and (Length(Result) > 0) do Delete(Result, Length(Result), 1); end;
Tak for hjælpen allesammen, nu virker det som det skal...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
