string methoden

[Skyruner2]

sagen wir ich habe:

Code:

var bla : string;
begin
  bla:='hallo du da';
end;

wie kann ich dann den string so verändern das ich nur noch bla=da hab?

aus irgendeinem Grund hab ich bei bla. eine Fehlermeldung. gibt es kein bla.indoxof oder sonstiges der art?

[mirage228]

Hi,

suche mal nach POS und COPY und Delete.

mfG
mirage228

[Nicodius]

wenn du den string sowieso weißt dann bringts ein einfaches Delete auch

[Ratte]

Hi,

so bekommst du die letzten zwei zeichen:
bla:=copy(bla,length(bla)-2,3);
Ratte

[Skyruner2]

ah super funzt

da es ja immer ganz interessant ist:

Delphi-Quellcode:

function urlfix(fixme:string; removethis:string; replacewith:string):string;
begin
  delete(fixme,pos(removethis,fixme),length(removethis));
  fixme:=replacewith+fixme;
  urlfix:=fixme;

end;

procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
begin
opendialog1.Execute;
  for i:=0 to opendialog1.Files.Count-1 do
    begin
      memo1.Lines.Add('[img]'+urlfix(opendialog1.Files[i],opendialog1.InitialDir+'\',edit2.Text)+'[/img]');
    end;
end;

[xineohp]

falls von Interesse:

auf die einzelnen Zeichen eines Strings kannst du mit bla[i] zugreifen.