Morgen alle,
ich hab ne datei in die ich was reingeschrieben habe und die wörter mit ';'
getrennt. Wie kann ich aus der textdatei ein wort bis zum ';' auslesen?
(also string auslesen bis zum ersten ';' und dann den ';' entfernen oder wie?)
danke im vorraus
heiopei

Genau, einfach mit ner Schleife while AnsiPos(';',text) <> 0 do das Vorkommen von ; ermitteln, den Text bisdahin rauskopieren und aus dem gesamttext löschen.

vielleicht hilft dir das hier weiter: http://www.delphipraxis.net/viewtopic.php?t=5929

Hallo,
schaut ganz gut aus - werds dann gleich ausprobieren

tsssschüs
heiopei

Hallo zusammen,
da alle immer selber die Strings zerpflücken wollen, habe ich hier mal einen ganz anderen Ansatz gewählt und lasse den String zerpflücken. Ich benutze eigentlich nur die Eigenschaften, die TStrings schon mitbringt.
Leider kann ich das nur unter D7 testen, da ich keine andere Version im Einsatz habe.
Hier der Sourcecode

zusammenfalten · markieren

Delphi-Quellcode:

 //-----------------------------------------------------------------------//

//#######################################################################//
//## Procedure StringTokenToStrings: ##//
//#######################################################################//
//## Datum: Änderung: ##//
//## ====== ========= ##//
//## 29.07.2003 Initial Release ##//
//#######################################################################//
procedure StringTokenToStrings(DelimitedText: string; Delimiter: Char; StringList: TStrings);
begin
  StringList.Delimiter := Delimiter;
  StringList.DelimitedText := DelimitedText;
end;

bye

-=> Source funktioniert leider nicht so wie sie sollte, sorry <=-