![]() |
Re: Teilstring in einen anderen String kopieren
@florian bernd: funktionert, aber die hochkommas sind noch am anfang und am ende des strings, wie bekomm ich die weg?
|
Re: Teilstring in einen anderen String kopieren
Zitat:
Delphi-Quellcode:
Okay..., das müsste funktionieren!
var s:String;
var i, copy_to:integer; begin s:=Clipboard.AsText; for i:=1 to length(s) do begin if s[i] = '''' then begin copy_to:=i; ShowMessage(copy(s,1,copy_to-1)); exit; // Das ist jetzt neu! end; end; end; Achja, in deinem Quelltext hab ich ein paar Fehler gefunden: - Wo ist die Variable d (wurde sie lokal deklariert?)
Delphi-Quellcode:
... ist falsch, wenn schon "d:= d + c[i+1];" (musst aber deine for-Schleife entfernen)
d[k] := c[i+1];
->
Delphi-Quellcode:
Das ist auch der Grund warum d nach der Schleife den wert '' (nix) hat.
for k := 0 to length(c)-2 do //...wird der string ab da in die variable d geschrieben
begin d[k] := c[i+1]; //c+1 damit der das erste hochkomma nicht mitgeschrieben wird //und length(c)-2 damit das 2te hochkomma nicht mitgeschrieben wird end;
Delphi-Quellcode:
Der Fehler macht zwar nix, aber c[0] ist '', also nix.
for i:=0 to length(c) do
begin if c[i] = '''' then //sobald ein Hochkomma vorhanden ist... |
Re: Teilstring in einen anderen String kopieren
Zitat:
Delphi-Quellcode:
So.
x := Copy('blablabla''dfdf''', Pos('''', 'blablabla''dfdf''') +1, length('blablabla''dfdf'''));
x := Copy(x, 1, length(x) -1); |
Re: Teilstring in einen anderen String kopieren
wech weil unnuütz ^^
|
Re: Teilstring in einen anderen String kopieren
thx an alle, es funktioniert
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz