Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Aufspalten eines Strings mit TABs (https://www.delphipraxis.net/105901-aufspalten-eines-strings-mit-tabs.html)

rokurou 1. Jan 2008 21:56


Aufspalten eines Strings mit TABs
 
Ich suche nach einer Möglichkeit einen String der verschiedene Werte die mit je einem TAB getrennt sind aufteilen.

Also dass ich den string : text1 <TAB> text2 <TAB> text3 <TAB> text4

in Variablen Speichern kann z.B str1:=text1 ; str2:=text2


bedanke mich schonmal im voraus
mfg
roku

mkinzler 1. Jan 2008 21:59

Re: Aufspalten eines Strings mit TABs
 
Z.B. per StringListe (.Delimiter, .DelimitedText)

Luckie 1. Jan 2008 21:59

Re: Aufspalten eines Strings mit TABs
 
Such mal in der Code-Library nach ExplodeExplode.

peschai 2. Jan 2008 06:04

Re: Aufspalten eines Strings mit TABs
 
Hallo,

Schliesse mich mkinzler an mit der Ergänzung daß du auch noch "StrictDelimiter" beachten solltest. Ansonsten wird z.b. ein Leerzeichen auch noch als "Trenner" verwendet ...

grenzgaenger 4. Jan 2008 02:25

Re: Aufspalten eines Strings mit TABs
 
wie wär's mit 'ner kleinen FOR schleife?

r2c2 4. Jan 2008 08:23

Re: Aufspalten eines Strings mit TABs
 
http://r2c2.weingut-rehn.de/content3...mit_Delphi.htm

mfg

Christian

toyoman 4. Jan 2008 09:25

Re: Aufspalten eines Strings mit TABs
 
Zitat:

Zitat von r2c2
http://r2c2.weingut-rehn.de/content3_Stringverarbeitung_mit_Delphi.htm

mfg

Christian

hallo christian

interessante seite hast du mit sehr brauchbarem inhalt, respekt! :) danke für den link.

gruss

quendolineDD 5. Jan 2008 18:14

Re: Aufspalten eines Strings mit TABs
 
Jo, oder du schreibst dir eine kleine Funktion, welche selbst die einzelnen Strings erstellt :)

Delphi-Quellcode:
function cutStr(delimiter: char; astring: string):array of string;
var i : integer;
begin
setlength(result, 0);
i := 0;

while (pos(delimiter, astring) <> 0) do begin
inc(i);
setlength(result, i);
result[i]:= copy(astring, 0, pos(delimiter, astring)-1);
delete(astring, 1, pos(delimiter, astring));
end;

end;
Für TAB einfach #9 eingeben :)
PS: Code ist ungetestet, habe im mom kein Delphi zur Hand. Müsste jedenfalls so ca. gehen ;o)


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz