Sujet Précédent Sujet Suivant

Memo1.lines.delete

Herostnic Messages postés 24 Date d'inscription mercredi 4 octobre 2006 Statut Membre Dernière intervention 27 juillet 2010 - 15 sept. 2008 à 03:58
Herostnic Messages postés 24 Date d'inscription mercredi 4 octobre 2006 Statut Membre Dernière intervention 27 juillet 2010 - 23 sept. 2008 à 07:52
jai des notes de 20 etudient dans un memo1-
a b
0 9
1 0
1 5
1 9
2 0
je veux faire un botton qui peu permet de suppremer les notes qui sont =15 par exmple c a:=1 et b:=5
dan mon memo1 le result est 15 ok(supremer a et b)
jai essayer cela if a-b=4 then memo1.lines.delete(a,b)
sa marchera pas je sais pas pour quoi et que le meme button fait suppremer le 12 sa veux dire que les lignes qui va etre suppremer sont de 12 et de 15;
C urgent pour un proff<
merci pour tout D'avance.

4 réponses

Réponse 1 / 4
Herostnic Messages postés 24 Date d'inscription mercredi 4 octobre 2006 Statut Membre Dernière intervention 27 juillet 2010
15 sept. 2008 à 04:03
j'avai un grand broblem pour poste ce message (Il y a eu une erreur dans la page
Désolé pour le désagrément, un log a été envoyé au webmasteur pour corriger au plus vite le problème

Cordialement
Nicolas SOREL (Nix)
Cliquez ici pour retourner au sommaire du site
Cliquez ici pour retourner à la page précédente)
------------------------------------------------
j'esper que c pas le meme cas pour la repense.
0
Réponse 2 / 4
Utilisateur anonyme
15 sept. 2008 à 07:13
Salut,

Supprime déjà b puis supprime a : ca ira beaucoup mieux.

Quand on supprime une ligne on change la numérotation des lignes :

a:=0
b:=1//<-on supprime b
c:=2
d:=3

a:=0

c:=1

d:=2

Ps : Il y a rien d'urgent : suffit de s'y prendre suffisamment tôt
0
Réponse 3 / 4
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 35
15 sept. 2008 à 14:38
Pensez a organiser correctement vos données!

balancer des données n'importe comment aussi bien dans un memo en texte brut que dans une base de donnée vas forcement vous amener a faire des methodes alambiquée et complexe pour des traitements qui ne le devrait pas!

premier principe mettre tout sur la même ligne, ou chaque ligne correspond a un etudiant :

etudiant A,9,5,15,14,8,12,20
etudiant B,10,11,9,13,12,7,20

voici un exemple :

http://deefaze.ovh.org/etudiantsexemple.zip
(D7 ... D2007)

<hr size="2" width="100%" />
0
Réponse 4 / 4
Herostnic Messages postés 24 Date d'inscription mercredi 4 octobre 2006 Statut Membre Dernière intervention 27 juillet 2010
23 sept. 2008 à 07:52
merci pour ton exemple maisVous ete un vrai machine vous le 1er Ordinateur human)<Mais ilya des erruers
LineBreak;ident non declaré
MainFormOnTaskbar
sil vous plai tu me explique Tout sa j'ai rien pigé:
pour quoi tu a fait trop de preocedure:
et comment je peu controlé dans un memo(le variable) je sais tu depense tellment d'energie pour me comprendre ce Couchmare mais il eté temp ;Sil vous Plait.
j'ai essaye de comprendre que se que t'as fait et jai essaye de recouperé les proprieté 
de listbox,panel..... j'en peu plus je suis saturé.

procedure TFrmMain.Button10Click(Sender: TObject);
var N : integer;
begin
  if ListBox2.ItemIndex <> -1 then
  begin
    ListBox1.Tag := ListBox2.ItemIndex;


    ListBox1.Items.Text := ListBox2.Items[ListBox1.Tag];


    Panel2.Enabled := true;
    for N := 0 to Panel2.ControlCount-1 do
      Panel2.Controls[N].Enabled := true;


    Panel1.Enabled := false;
    for N := 0 to Panel1.ControlCount-1 do
      Panel1.Controls[N].Enabled := false;
  end;
end;


procedure TFrmMain.Button11Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
end;


procedure TFrmMain.Button1Click(Sender: TObject);
var N : integer;
begin
  ListBox2.Items[ListBox1.Tag] := ListBox1.Items.Text;
  ListBox1.Clear;


  Panel2.Enabled := false;
  for N := 0 to Panel2.ControlCount-1 do
    Panel2.Controls[N].Enabled := false;


  Panel1.Enabled := true;
  for N := 0 to Panel1.ControlCount-1 do
    Panel1.Controls[N].Enabled := true;
end;


procedure TFrmMain.Button2Click(Sender: TObject);
begin
  if (ListBox1.ItemIndex > 1) then
  begin
    ListBox1.Items.Exchange(ListBox1.ItemIndex, ListBox1.ItemIndex-1);
  end;
end;


procedure TFrmMain.Button3Click(Sender: TObject);
begin
  if (ListBox1.ItemIndex > 0) and
     (ListBox1.ItemIndex < ListBox1.Count-1) then
  begin
    ListBox1.Items.Exchange(ListBox1.ItemIndex, ListBox1.ItemIndex+1);
  end;
end;


procedure TFrmMain.Button4Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > 1 then
    ListBox1.DeleteSelected;
end;


procedure TFrmMain.Button5Click(Sender: TObject);
begin
  if Edit1.Tag <> -1 then
    ListBox1.Items[Edit1.Tag] := Edit1.Text;
end;


procedure TFrmMain.Button6Click(Sender: TObject);
begin
  ListBox2.Items.Add('Nouveau/0/0/0/');
end;


procedure TFrmMain.Button6MouseEnter(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := (Sender as TButton).Hint;
end;


procedure TFrmMain.Button6MouseLeave(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := '';
end;


procedure TFrmMain.Button7Click(Sender: TObject);
begin
  ListBox2.DeleteSelected;
end;


procedure TFrmMain.Button8Click(Sender: TObject);
begin
  if ListBox2.ItemIndex > 0 then
  begin
    ListBox2.Items.Exchange(ListBox2.ItemIndex, ListBox2.ItemIndex-1);
  end;
end;


procedure TFrmMain.Button9Click(Sender: TObject);
begin
  if (ListBox2.ItemIndex > -1) and
     (ListBox2.ItemIndex < ListBox2.Count-1) then
  begin
    ListBox2.Items.Exchange(ListBox2.ItemIndex, ListBox2.ItemIndex+1);
  end;
end;


procedure TFrmMain.Edit1Change(Sender: TObject);
var I : integer;
begin
  if Edit1.Tag <> 0 then
  begin
    if not TryStrToInt(Edit1.Text, I) then
    begin
      Edit1.Font.Color := clRed;
      Button11.Enabled := false;
      Button5.Enabled  := false;
    end
    else
    begin
      Edit1.Font.Color := clBlue;
      Button11.Enabled := true;
      Button5.Enabled  := true;
    end;
  end
  else
  begin
    Button11.Enabled := false;
    if Length(Edit1.Text) = 0 then
    begin
      Edit1.Font.Color := clRed;
      Button5.Enabled  := false;
    end
    else
    begin
      Edit1.Font.Color := clBlack;
      Button5.Enabled  := true;
    end;
  end;
end;


procedure TFrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Edit1.Tag <> 0 then
    if not (Key in ['0'..'9',#8]) then
      Key := #0;
end;


procedure TFrmMain.ListBox1Click(Sender: TObject);
begin
  Edit1.Tag  := ListBox1.ItemIndex;


  Button2.Enabled  := ListBox1.ItemIndex > 1;
  Button3.Enabled  := (ListBox1.ItemIndex <> 0)  and (ListBox1.ItemIndex < (ListBox1.Count-1));
  Button4.Enabled  := ListBox1.ItemIndex > 1;
  Button11.Enabled := ListBox1.ItemIndex <> 0;


  if ListBox1.ItemIndex <> -1 then
  begin
    Edit1.Text := ListBox1.Items[Edit1.Tag];
0

Discussions similaires

memo1.Lines
Herostnic -
JulioDelphi -

3 réponses
Rejoignez-nous