Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - den Inhalt des Strings in einem Edit Feld auslesen
Nicola - Mo 17.05.04 09:45
Titel: den Inhalt des Strings in einem Edit Feld auslesen
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 - Mo 17.05.04 10:14
Ich bin mal wieder nicht sicher, ob ich es begriffen habe .... :roll:
TEdit.Text kennst du aber?
Nicola - Mo 17.05.04 13:06
| IngoD7 hat folgendes geschrieben: |
Ich bin mal wieder nicht sicher, ob ich es begriffen habe .... :roll:
TEdit.Text kennst du aber? |
:wink:
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 - Mo 17.05.04 13:14
wie wäre es so?
Delphi-Quelltext
1:
| if sametext('.dot',extractFileExt(edit1.text)) then showmessage('alles klar'); |
:D
Motzi - Mo 17.05.04 13:25
Delphi-Quelltext
1:
| ShowMessage(ChangeFileExt(Edit1.Text, '')); |
;)
IngoD7 - 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 - 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 - 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, '')); |
;) |
IngoD7 - 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 - 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.
Jetstream - 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.
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!