Impressum
  • Artikel ist eingeordnet in:
  • Delphi


Strings suchen und ersetzen, String in Nummer umwandeln geschrieben am 14.11.2005

Ein paar Funktionen zum Thema Strings in Delphi:

Delphi/Pascaluses SysUtils,classes;
Einen Teilstring durch einen anderen ersetzen:
Delphi/Pascal function string_ersetzen(zeile,zeichenq,zeichenz:string):string; var neustring:string; p1:integer; begin result:=zeile; if pos(zeichenq,zeile)=0 then exit; neustring:=''; repeat p1:=pos(zeichenq,zeile); neustring:=neustring+copy(zeile,1,p1-1); //davor if p1>0 then begin neustring:=neustring+zeichenz; //neues Zeichen zeile:=copy(zeile,pos(zeichenq,zeile)+length(zeichenq),length(zeile)); end else begin neustring:=neustring+zeile; //rest zeile:=''; end; until length(zeile)=0; result:=neustring; end;
String in Nummer (double) umwandeln:
Delphi/Pascalfunction strtonum(wert:string;istfloat:boolean):double; var sammler:string; t,t2,t2e:integer; const zarr:array[0..11]of char=('0','1','2','3','4','5','6','7','8','9','-',','); begin sammler:=''; t2e:=length(zarr); for t:=1 to length(wert) do begin if pos(',',sammler)>0 then t2e:=length(zarr)-1; for t2:=0 to t2e-1 do begin if wert[t]=zarr[t2] then sammler:=sammler+wert[t]; end; end; if length(sammler)=0 then sammler:='0'; if istfloat=false then sammler:=inttostr(round(strtofloat(sammler))); result:=strtofloat(sammler); end;


schreibe den ersten Kommentar:


Inhalt zur freien Verwendung gibs es beim Thema Downloads.
nach oben springen
mehr auf: Instagram, github, thingiverse