Entwickler-Ecke
Sonstiges (Delphi) - 1. Wort aus einem String lesen [Hat sich schon erledigt]!
Der-DeeJay - Fr 12.12.03 18:31
Titel: 1. Wort aus einem String lesen [Hat sich schon erledigt]!
HI
Ich habe das nun so gemacht wie es mir vorgeschlagen worden si mit pos
aber das will nich so wie ich will!!
Eigendlich soll er alle anzeigen er zeigt aber nur den 1. an wie so????
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
| var index,c1,c2:integer; IPping: array[1..20] of String[15]; begin index:=memo1.Lines.Count;
for c1:=1 to index do begin IPping[c1]:=memo1.Lines.Strings[c1]; end;
for c2:=1 to Index do if pos(#32,IPping[c2]) > 0 then begin SetLength(IPping[c2],pos(#32,IPping[c2])-1); Log.Lines.add(IPping[c2]); end;
end; |
memo1 = dort hab ich die sachen drinn die ich trennen will[z.B. xxx.xx.xxx.x: mein eigener Host]
log = das is me memo wo ich das ergebnis drin haben will[z.B. xxx.xx.xxx.x:]
Hoffe ihr könnt mir genau so schnell helfen wei letztes mal!!
MFG
Der DeeJay
Delete - Fr 12.12.03 18:36
Also, wenn du´s von einem Memo ins andere
kopieren willst, dann nimm doch "copy". Wenn ich jetzt nicht einen argen Fehler gemacht und übersehen habe, dann sollte das hier genügen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| with Memo1,Lines do for i := 0 to Count - 1 do if(Strings[i] <> '') and (pos(#32,Strings[i]) > 0) then begin Log.Lines.Add(copy(Strings[i],1, pos(#32,Strings[i])-1); end; |
Der-DeeJay - Fr 12.12.03 18:44
Danke MathiasSimmack!!!
Das ging ja noch schneller als ich gedacht hab!!
Danke!!
Christian S. - Fr 12.12.03 18:45
Hallo!
Bitte ändere den Titel des Topics da er wenig über das eigentlich Thema verrät. Hier der entsprechende Absatz aus den Delphi-Forum.de Richtlinien:
| Richtlinien hat folgendes geschrieben: |
1.1 Beiträge
Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist.[...]
|
Einfach oben bei deinem ersten Beitrag auf "Edit" klicken und den Titel ändern. Dank Dir!
Gruß Peter Lustig
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!