| Autor |
Beitrag |
Nicola
Hält's aus hier
Beiträge: 10
|
Verfasst: Mo 17.05.04 09:45
ich möchte prüfen, ob das Edit-Feld irgendetwas enthält und das irgendetwas soll folgender maßen ausssehen:
irgendwas.dot
wie Prüfe ich das, muss ich dafür den String Zeiche für Zeichen auslesen?
Das Problem ist nämlich das EditFeld schon onCreate den String '.dot' enthält, den der Benutzter dann überschreiben soll??
Danke für Antworten NICOLA
|
|
IngoD7
 
Beiträge: 629
D7
|
Verfasst: Mo 17.05.04 10:14
Ich bin mal wieder nicht sicher, ob ich es begriffen habe .... 
TEdit.Text kennst du aber?
|
|
Nicola 
Hält's aus hier
Beiträge: 10
|
Verfasst: Mo 17.05.04 13:06
| IngoD7 hat folgendes geschrieben: | Ich bin mal wieder nicht sicher, ob ich es begriffen habe ....
TEdit.Text kennst du aber? |
klar kenne ich das, da kann man dann aber doch nur den gesamten String abprüfen oder??? ich will ja nur, dass vor dem .dot was stehen muss
|
|
maximus
Beiträge: 896
Win XP, Suse 8.1
Delphi 4/7/8 alles prof
|
Verfasst: Mo 17.05.04 13:14
_________________ mfg.
mâximôv
|
|
Motzi
Beiträge: 2931
XP Prof, Vista Business
D6, D2k5-D2k7 je Prof
|
Verfasst: Mo 17.05.04 13:25
  Delphi-Quelltext
1:
| ShowMessage(ChangeFileExt(Edit1.Text, '')); |
_________________ gringo pussy cats - eef i see you i will pull your tail out by eets roots!
|
|
IngoD7
Beiträge: 629
D7
|
Verfasst: Mo 17.05.04 15:36
Das sieht zwar schon wieder irgendwie nach Ratestunde aus - aber ich rate mit!
Quelltext
1:
| if (RightStr(Edit1.Text,4)='.dot') and (Length(Edit1.Text)>4) then ... |
Damit prüfst du, ob
a.) ".dot" am Ende enthalten ist und
b.) mind. 1 Zeichen vor ".dot" steht.
|
|
Jetstream
Beiträge: 222
|
Verfasst: Di 18.05.04 01:09
Ich bin für was billiges:
Quelltext
1:
| if length(Edit1.text)>4 then for index:=2 to (length(Edit1.Text)-3) do if (copy(Edit1.text,index,4)='.dot') then DaStehtWasVorDemDot; |
Er geht vom zweiten Zeichen bis zum viertletzten und guckt jeweils ob er da '.dot' rauskopieren kann. Wenn ja, dann steht da was davor, da er ja vom zweiten Zeichen anfängt. 
|
|
Chatfix
Beiträge: 1583
Erhaltene Danke: 10
Win 10, Win 8, Win 7, Win Vista, Win XP
VB.net (VS 2015), MsSQL (T-SQL), HTML, CSS, PHP, MySQL
|
Verfasst: Di 18.05.04 15:36
Sie will nicht wissen OB was davor steht sonder WAS davor steht...
Und Motzi hat damit alles gesagt:
| Motzi hat folgendes geschrieben: | Delphi-Quelltext
1:
| ShowMessage(ChangeFileExt(Edit1.Text, '')); |
|
_________________ Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce
|
|
IngoD7
Beiträge: 629
D7
|
Verfasst: Di 18.05.04 16:13
| Chatfix hat folgendes geschrieben: | Sie will nicht wissen OB was davor steht sonder WAS davor steht...
|
Wo steht das???
|
|
MartinPb
Beiträge: 698
|
Verfasst: Di 18.05.04 16:14
Warum so kompliziert?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| var
Dateiname: String;
Dateiendung: String;
begin
Edit1.Text := Trim(Edit1.Text);
Dateiname := ChangeFileExt(ExtractFileName(Edit1.Text), ''); Dateiendung := ExtractFileExt(Edit1.Text); end; |
Jetzt kann man nach Herzenslust prüfen was man will. _________________ Gruß
Martin
|
|
Jetstream
Beiträge: 222
|
Verfasst: Mi 14.07.04 22:37
Soll man da nen Dateinamen eingeben ? Warum denn dann die Endung nicht einfach erzwingen ?
Delphi-Quelltext
1:
| String3000:=Edit1.Text+'.dot'; |
Dann ist Edit1.text das, "was davor steht", und String3000 is der Dateiname mit dem .dot
Aber ich glaub, das Thema is eh schon veraltet und wir haben schon genug Vorschläge, also könnte man das hier mal langsam closen.
|
|
