Memofeld nach User absuchen

blackbirdXXX · Beiträge: 1077 Erhaltene Danke: 1 Ubuntu Dapper

Ich habe ein TMemo. Dieses Ist auf Readonly gesetzt.
Auf der Form befinden sich dann noch ein TEdit und ein Button.
Der User gibt nun seinen Namen auf dem TEdit ein und klickt dann auf den Button. Dann wird sein Name in das Memo aufgenommen und die Datei wird gespeichert. Alle User greifen auf die selbe Datei zu. Diese ist am Netzwerk freigegeben.
Nun möchte ich noch eine zweite Anwendung die nur mir zusteht. Dort möchte ich User durch Eingabe des Namens aus der Liste streichen. Es darf dann keine leere Zeile entstehen.

Ich hoffe ich habe mein Problem gut erklährt.

_________________
Klein, schwarz und ärgert Techniker? Jumper!

StefanH · Verfasst: Fr 05.09.03 19:48

Hallo!

wenn du den User so löscht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

for i:=0 to Memo1.Lines.Count -1 do
begin
      if Memo1.Lines[i]=EUsername.Text then
           begin 
                    Memo1.Lines[i]:='';
                    break;
           end;
end;

Dann musst du

markieren

Delphi-Quelltext

1:
2:

for j:=i to Memo1.Lines.Count -1 do
           Memo1.Lines[j]:= Memo1.Lines[j+1];

Sollte gehen,
Stefan[/delphi]

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

blackbirdXXX · Beiträge: 1077 Erhaltene Danke: 1 Ubuntu Dapper

Danke. Funktioniert wunderbar.

_________________
Klein, schwarz und ärgert Techniker? Jumper!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme