Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Teilstring in einen anderen String kopieren (https://www.delphipraxis.net/70536-teilstring-einen-anderen-string-kopieren.html)

fes 31. Mai 2006 17:28

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?

HuxXx 31. Mai 2006 17:29

Re: Teilstring in einen anderen String kopieren
 
Zitat:

Zitat von fes
@huxxx: also wenn ich das nach deiner procedure mache, gibt er mir den gleichen text aus, aber er entfernt das letzte hochkomma.

Also aus dem text blablabla'dfdf' wird blablabla'dfdf

Die anderen Vorschläge bin ich grad am ausprobieren.

Oh..., das letzte ' hab ich ja garnicht gesehen..., dann halt so (ein exit einbauen):

Delphi-Quellcode:
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;
Okay..., das müsste funktionieren!


Achja, in deinem Quelltext hab ich ein paar Fehler gefunden:
- Wo ist die Variable d (wurde sie lokal deklariert?)


Delphi-Quellcode:
d[k] := c[i+1];
... ist falsch, wenn schon "d:= d + c[i+1];" (musst aber deine for-Schleife entfernen)
->
Delphi-Quellcode:
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;
Das ist auch der Grund warum d nach der Schleife den wert '' (nix) hat.

Delphi-Quellcode:
for i:=0 to length(c) do
   begin
    if c[i] = '''' then //sobald ein Hochkomma vorhanden ist...
Der Fehler macht zwar nix, aber c[0] ist '', also nix.

Zacherl 31. Mai 2006 17:30

Re: Teilstring in einen anderen String kopieren
 
Zitat:

Zitat von fes
@florian bernd: funktionert, aber die hochkommas sind noch am anfang und am ende des strings, wie bekomm ich die weg?

Delphi-Quellcode:
  x := Copy('blablabla''dfdf''', Pos('''', 'blablabla''dfdf''') +1, length('blablabla''dfdf'''));
  x := Copy(x, 1, length(x) -1);
So.

TeronG 31. Mai 2006 17:31

Re: Teilstring in einen anderen String kopieren
 
wech weil unnuütz ^^

fes 31. Mai 2006 17:34

Re: Teilstring in einen anderen String kopieren
 
thx an alle, es funktioniert


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr.
Seite 2 von 2     12   

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