Har någon ett bra sätt att radera text i flera edit.text.
Det går ju inte med en for lop

Hej
Då tillverkar du lämpligen en egen Procedure enl exempel.

private
{ Private declarations }
procedure RensaEdit ;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation

{$R *.DFM}

Procedure TForm1.RensaEdit ;
Begin
Edit1.Text := '' ; // '' är två "fnuttar" dvs tom 'sträng'
Edit2.Text := '' ;
Edit3.Text := '' ;
Edit4.Clear ; // Man kan också använda tex. Edit4.Clear
End ;

procedure TForm1.Button1Click(Sender: TObject);
begin
RensaEdit ;
end;

mvh
Sven

Tack för svaret.
Men finns det inte något sätt att skiva med bara en rad?
Mvh Kenth

Hej igen
Inte vad jag vet
Kolla om du hittar något på H3 :s utmärkta tips
http://www.jpldata.net/~magnus/delphiqa/

mvh
Sven

Hej.

Visst kan man radera text-properties i alla Edit-komponter.

Ett sätt som jag brukar använda mig av är:

1. Deklarera en procedur i formulärklassen.
2. Definiera proceduren under avsnittet implementation.
Glöm inte att loopen måste starta på 1 (eftersom första kompontenten blir Edit1) och avslutas med 2 (då sista komponenten är Edit2)!
3. Anropa den med en ButtonClick eller vad som helst.

Exempel:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure EmptyAllEdits; //Vår skapade procedur
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.EmptyAllEdits;
var Loop1,Loop2 : Integer;
begin
for Loop1:=1 to 2 do
begin
for Loop2:=0 to (ComponentCount - 1) do
if (Components[Loop2].Name = 'Edit' + IntToStr(Loop1)) then
TEdit(Components[Loop2]).Text:='';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EmptyAllEdits;
end;

end.

Tack för tipset

Hej
Jaha där ser man.Om det är värt besväret

>Men finns det inte något sätt att skiva med bara en rad?
Det blev en hel del rader och funktioner som blev inblandade.

Sen förutsätter ju denna metod att du inte döper dina
EditBoxar ,vilket man ju gör för tydlighets skull.

Man läser Edit12 vad tusan gör Edit12 ,bättre att döpa den
till något logiskt,då funkar inte loopen.Vidare måste
looparna gå genom alla kontroller som finns i formuläret
för att leta efter just 'Edit'. Njaaaaaaaa ingen bra metod.

Tycker
Sven

En lösning som raderar alla TEdit utan hänsyn till namn.

for i := 0 to ComponentCount - 1 do
if Components[i] is Tedit then
TEdit(Components[i]).Text := '';

Hej Igen

Den var gooo lägger vi i godislådan
Så här blev det

procedure TForm1.Button1Click(Sender: TObject);
Var
i : Integer ;
Begin
For i := 0 To ComponentCount - 1 do
If Components[i] Is TEdit Then
TEdit(Components[i]).Clear ;
End;

Tackar
Sven