Vigtig spørgsmål om label

HEJ

Du kan bruge funktionen SEARCH_AND_REPLACE.

Kristian

PS: Link kommer om nogel minutter....

LINK:

http://delphi.about.com/cs/adptips1999/a/bltip1099_4.htm

eller
hvis du er over Delphi 5 (dsv. Delphi 6 ++++ --> )

StringReplace (men den er lidt sværere at håndtere).


Kristian

Det er delphi 7

Har kikket lidt på den kode. Kan ik helt få denne kode til at virke:

sOldString:='testing;search;and;replace';
sNewString:=SearchAndReplace(sOldString, ';', ' ')

hvordan skal det se ud når jeg fx skal slet tallet "5"?

sOldString:='123456789';
sNewString:=StringReplace(sOldString, '5', '',[rfReplaceAll,rfIgnoreCase]);

nu ser den sådan ud:

function SearchAndReplace
    (sSrc, sLookFor, sReplaceWith : string) : string;
var
    nPos, nLenLookFor : integer;
begin
    nPos := Pos(sLookFor, sSrc) ;
    nLenLookFor := Length(sLookFor) ;
    while (nPos > 0) do begin
      Delete(sSrc, nPos, nLenLookFor) ;
      Insert(sReplaceWith, sSrc, nPos) ;
      nPos := Pos(sLookFor, sSrc) ;
    end;
    Result := sSrc;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
sOldString:='123456789';
sNewString:=StringReplace(sOldString, '5', '',[rfReplaceAll,rfIgnoreCase]);
end;


men det virker ik "sOldString" Hvordan sår jeg den til at passe med min label?

HEJ

Din gamle:


procedure TForm1.Button1Click(Sender: TObject);
begin
sOldString:='123456789';
sNewString:=StringReplace(sOldString, '5', '',[rfReplaceAll,rfIgnoreCase]);
end;


din nye:

procedure TForm1.Button1Click(Sender: TObject);
begin
//  hent txt fra LabelNNN til sOldString

  sOldString := LabelNNNN.Text // LabelNNN.Text = '123456789';

//  Skift sOldstring til sNewstring -- sNewstring = sOldstring med rettelser 

  sNewString := StringReplace(sOldString, 
    '5','',rfReplaceAll,rfIgnoreCase]);

//  Skriv sNewsstring tilbage til LabelNNN som tekst.

  LabelNNN.text := sNewString; 

end;

Hvor LabelNNN er din label1 , 2 , 3 eller hvad nummer det nu måtte være ....

TaK til KRONING for "lån af kode " ..

Kristian

Siger mange tak. Det virker nu.

Hmm, hvordan udlever man pointne?

FORSLAG:

1/2 delen til Kroning og 1/2 delen til mig .

eller vent på Kronings kommentar.

Kristian

Det vil jeg os, men er ny her ind, så slaæ æige finde ud af at give point... Hvordan gør man!

HEJ,

Som du ser (i bunden af siden, der hvor du skriver kommentarer og SVAR er der 2 RADIOBOKSE (de runde klik-felter, hvor KOMMENTARER er mærkemt med GRØN).

Jeg opretter nu et SVAR og det eneste du skal er at bekræfte.

KRistian