Editfeld für Computername

[ManuMF]

Hallo,

ich brauche ein Editfeld, in dem der Nutzer einen Computernamen eingeben kann. Die ersten 2 Zeichen sollen also fest sein, nämlich \\.
Das ganze soll dann etw so aussehen:
[\\Name ]

Ich dachte da gleich an MaskEdit, habe aber Probleme, die Maske zu erstellen.

Danke,
ManuMF

[Matze]

Wie das geht, weiß ich auf anhieb nicht, aber fügr "\\" doch einfach zur Laufzeit an den String an.

[raffo]

Mein Vorschlag, setzt doch vor dem Edit nen Label mit "\\" und setz den String dann später zusammen s:='\\'+Edit1.Text;

[ManuMF]

Das geht auch, aber für den Fall, dass der Nutzer die \\ schon eingegeben hat, müsste ich dann mit StringReplace arbeiten und am Ende \\ wider anfügen. Ich wollte aber die \\ irgendwie im Editfeld, damit es für den Nutzer klarer ist, wie er den Namen eingeben muss.

Gruß,
ManuMF

[raffo]

Dann vielleicht so:

Delphi-Quellcode:

edit1.text:='\\';
edit1.selstart:=255;
edit1.setfocus;

So kriegt der Benutzer die Slashes am Anfang und kann gleich weiterschreiben (was aber, wenn er sie wieder löscht?) - > if pos('\\',edit1.text)=0 then edit1.text:='\\'+edit1.text; Ist aber net ganz so sicher. Darf, kann er denn LEERzeichen eingeben?

[ManuMF]

Zitat von raffo:

Ist aber net ganz so sicher. Darf, kann er denn LEERzeichen eingeben?

Soweit ich weiß, können Computernamen zwar inzwischen länger als 12 Zeichen sein, aber ohne Leerzeichen.

Gruß,
ManuMF

[Matze]

edit1.selstart:=255; Wieso denn 255?

[raffo]

soryy, angewohnheit von mir, glaube noch von Pascal, die gingen ja nur bis 255, jedenfalls sollte das verdeutlichen, das der Cursor wirklich zum Ende des Textes geht...

[ManuMF]

Das mit Pos ist schon ganz gut, aber wenn nur ein Backslash entfernt wird, hab ich plötzlich 3...

Gruß,
ManuMF

[EDIT]
So funktioniert es jetzt (bei OnChange):

Delphi-Quellcode:

if (Pos('\\', AddFeld.Text) = 0) then
begin
  if (Pos('\', AddFeld.Text) = 0) then
    AddFeld.Text := '\\' + AddFeld.Text
  else
    AddFeld.Text := '\' + AddFeld.Text;
end;

[/EDIT]

[Matze]

Delphi-Quellcode:

  if Pos('\\', Edit1.Text) = 1 then
begin
  ShowMessage('Eingabe korrekt!');
end else
begin
  Edit1.Text := '\\' + Edit1.Text;
end;