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;