wie soll die schleife geschrieben werden??

[divBy0]

Ohne Grundlagen wirst du das echt nicht hinbekommen und dann wirst du unter Zeitdruck damit auf keinen Fall fertig.

Das Projekt am besten abgeben und sich dann erst mal mit den Grundlagen befassen oder zum Selbststudium selbst daran weiterarbeiten. Sorry, aber das wird das Beste sein.

[karim2008]

Es tut mir leid leute!Aber ich gebe wirklich mühe!die prozedure die ich in mein Quellcode einfügen soll sieht so aus( damit daten von listbox gelesen und dann gespeichert)!

procedure TFormListIO.ButtonLesenClick(Sender: TObject);
VAR Datei : TextFile;
Zeile : STRING;
begin
if OpenDialog.Execute then
BEGIN
TRY
AssignFile (Datei,OpenDialog.Filename);
Reset (Datei);
WHILE NOT EOF(Datei) DO
BEGIN
Readln (Datei, Zeile);
ListBoxText.Items.Add (Zeile);
END;
EXCEPT
ShowMessage ('Fehler beim Lesen der Datei!');
END;
CloseFile (Datei);
ButtonLeer.Enabled := ListBoxText.Items.Count >= 1;
ButtonSpeichern.Enabled := ButtonLeer.Enabled;
END;
end;

procedure TFormListIO.ButtonSpeichernClick(Sender: TObject);
VAR Datei : TextFile;
Nr : INTEGER;
begin
if SaveDialog.Execute then
BEGIN
TRY
AssignFile (Datei,SaveDialog.Filename);
Rewrite (Datei);
FOR Nr := 0 TO ListBoxText.Items.Count-1 DO
Writeln (Datei, ListBoxText.Items[Nr]);
EXCEPT
ShowMessage ('Fehler beim Speichern der Datei!');
END;
CloseFile (Datei);
END;
aber die soll ich zu meinem Quellcode einpassen!Ich hab wirklich mehr mals versucht aber das programm funktioniert nicht!vielleicht kann mir jemand helfen oder paar Typ geben!und bitte kein gemeinte Kommentaren!Ich übergebe ja euch nicht meine Aufgaben!das ist auch nicht so gemeint!ich brauche ja hilfe!Danke!
LG

[DeddyH]

Zitat von karim2008:

Delphi-Quellcode:

procedure TFormListIO.ButtonLesenClick(Sender: TObject);
VAR Datei : TextFile;
Zeile : STRING;
begin
  if OpenDialog.Execute then
    BEGIN
      TRY
        AssignFile (Datei,OpenDialog.Filename);
        Reset (Datei);
        WHILE NOT EOF(Datei) DO
          BEGIN
            Readln (Datei, Zeile);
            ListBoxText.Items.Add (Zeile);
          END;
      EXCEPT
        ShowMessage ('Fehler beim Lesen der Datei!');
      END;
      CloseFile (Datei);
      ButtonLeer.Enabled := ListBoxText.Items.Count >= 1;
      ButtonSpeichern.Enabled := ButtonLeer.Enabled;
    END;
end;

procedure TFormListIO.ButtonSpeichernClick(Sender: TObject);
VAR Datei : TextFile;
Nr : INTEGER;
begin
  if SaveDialog.Execute then
    BEGIN
      TRY
        AssignFile (Datei,SaveDialog.Filename);
        Rewrite (Datei);
        FOR Nr := 0 TO ListBoxText.Items.Count-1 DO
        Writeln (Datei, ListBoxText.Items[Nr]);
      EXCEPT
        ShowMessage ('Fehler beim Speichern der Datei!');
      END;
      CloseFile (Datei);
   END;
end;

Wer schreibt denn so etwas Umständliches? Versuch es mal so: Du machst in der IDE einen Doppelklick auf den ButtonLesen. Alles zwischen begin und end; sowie die Varaiblendeklarationen löschst Du da raus und fügst das hier ein:

Delphi-Quellcode:

if OpenDialog.Execute then
  try
    ListBoxText.Items.LoadFromFile(OpenDialog.Filename);
    ButtonLeer.Enabled := ListBoxText.Items.Count > 0;
    ButtonSpeichern.Enabled := ButtonLeer.Enabled;
  except
    ShowMessage('Fehler beim Laden der Datei');
  end;

Beim ButtonSpeichern tust Du dasselbe mit diesem Code:

Delphi-Quellcode:

if SaveDialog.Execute then
  try
    ListBoxText.Items.SaveToFile(SaveDialog.Filename);
  except
    ShowMessage('Fehler beim Speichern der Datei');
  end;

[Nuclear-Ping]

Man kann sichs auch schwer machen ...
Warum nutzt du nicht ButtonSpeichernClick aus der Anwendung, speicherst die Datei, öffnest sie mit Notepad und kopierst dir dann den Inhalt in die Zwischenablage?

[DeddyH]

Achja, mit Zwischenablage war da ja auch noch was. Was sollte da nochmal rein?

[Nuclear-Ping]

Zitat von karim2008:

[...] vielleicht kann mir jemand helfen oder paar Typ geben! [...] ich brauche ja hilfe!

Du hast mehr als ein paar Tipps und Hilfe bekommen. Man hat dir gezeigt, was für einen Code du brauchst:

Zitat von Nachtreiter:

Das Kopieren ins Clipboard ist ein bischen mehr als eine Zeile.
bei ...die Items einer Listbox in die Zwischenablage kopieren?
gibt es mehrere Lösungen.

[...]

... und was du damit machen sollst:

Zitat von inherited:

Zitat von inherited:

Du tust die Funktion ListBoxToCLipboard komplett so wie sie ist irgendwo in deinen Quelltext zwischen die anderen Prozeduren, sie muss aber vor der Prozedur in der du sie aufrufst stehen, also pack sie am besten an den anfang.

Und dann rufst du sie, wo auch immer du möchtest, mit "ListBoxToClipboard(NamedeinerListbox)" auf

Wenn du nicht richtig lesen willst (oder kannst) und es nicht schaffst, diese Tipps umzusetzen, was sollen wir denn dann noch machen?

[DeddyH]

Klär mich mal einer auf: was genau soll da in die Zwischenablage?

[sirius]

Ratet ihr jetzt alleine weiter?

[DeddyH]

Klar, ich habe gerade nix zu tun

[karim2008]

hey leute!ich hab geschafft endlich mal den Inhalt von meinem listbox in zwischenablage zu kopieren nun aber ich hab kein zugriff dadrauf wie kann ich die jetzt markieren und dann kopieren??hat jemand ahnung???