Lazarus / Programmieren Hilfe !!!!

[helpge1]

Hallo, lazarusforum.de user,
ich habe hier ein folgendes problem.
Ich bin noch ein [Anfänger] und komme hier nicht mehr weiter ( es sind 3 Fehler drinne oder mehr ).
Ich hoffe ihr könnt mir helfen.

Code: Alles auswählen

var
 
  sl1, sl2, sl3: TStringList;
 
  i: integer;
 
  fn: string;
 
begin
 
 
 
  sl1 := TStringList.Create;
 
  sl2 := TStringList.Create;
 
  sl3 := TStringList.Create;
 
  try
 
    for i := 1 to 3 do begin
 
      sl2.Clear;
 
      sl2.Values['Nachname'] := InputBox('Eingabe', 'Nachname', '');
 
      sl2.Values['Vorname'] := InputBox('Eingabe', 'Vorname', '');
 
      sl1.Add(sl2.CommaText);
 
    end;
 
 
 
    fn := 'Adressliste.txt';
 
    if (PromptForFileName(fn, 'TXT-Datei (*.txt)|*.txt', '.txt', 'Adressliste.txt', '', True)) then begin
 
      sl1.SaveToFile(fn);
 
    end;
 
 
 
    sl2.Clear;
 
    sl1.LoadFromFile(fn);
 
    for i := 0 to sl2.Count do begin
 
      sl2.CommaText := sl1(i);
 
      sl3.Add(sl2.Values['Vorname'] + ' ' + sl2.Values['Nachname']);
 
    end;
 
    ShowMessage(sl3.Text);
 
  finally
 
    FreeAndNil(sl1);
 
    FreeAndNil(sl2);
 
    FreeAndNil(sl3);
 
  end;

[Linkat]

Hallo helpge1,
wahrscheinlich liegt das Problem in der letzten for-Schleife. Du hast sl2.clear, damit ist auch der count=0 und du kommst gar nicht in die Schleife. Dies ist zumindest ein Fehler.

Viel Erfolg weiterhin.

Gruß, Linkat

[helpge1]

ok danke dir...nur noch paar Fehler drinne...

[Achtzig]

Sind das jetzt Aufgaben eines Bots oder warum schreibst Du nicht, was Dein Problem ist? Fühlt man sich ja wie in der Schule

Wenn Du weißt, daß es mindestens 3 Fehler sind, könntest Du eigentlich auch gleich noch die Fehlermeldungen hier reinschreiben.

[Christian]

Is doch offensichtlich, die haben in der schule gesagt bekommen hier habt ihr n stück code sind 3 oder mehr fehler drinne.
Und ihr nasen macht schon wieder fremde Hausaufgaben weil derjenige in der Stunde wos erklärt wurde lieber gepennt hat.

[Achtzig]

Hallo, lazarusforum.de user,
ich habe hier ein folgendes problem.
Ich bin noch ein [Anfänger] und komme hier nicht mehr weiter ( es sind 3 Fehler drinne oder mehr ).
Ich hoffe ihr könnt mir helfen.

Also ich hätte eher gedacht, die Frage käme von einem Bot. Die Art und Weise wie es geschrieben ist, sogar mit Platzhalter, finde ich persönlich etwas ungewöhnlich. Aber wahrscheinlich liege ich da vollkommen falsch

[helpge1]

Nene bin kein Bot xDDDD

Habe die Aufgabe gestellt bekommen und die Person die/der es Aufgegeben hatt meinte es wären 3 oder 4 Fehler drinne...

[Michl]

Dann versuche das Projekt doch zu compilieren (Button Start drücken oder Taste"F9"). Dann gibt dir der Compiler einen Fehler bekannt. Diesen schreibst du in die Suchmaschine deiner Wahl. Zu den meisten Fehlern gibt des genügend Hinweise im Netz zu finden.

Falls du dann nicht weiter kommst und einen konkreten Fehler benennen kannst, dann ist das Forum hier der richtige Ansprechpartner! Alles andere macht keinen Sinn, da wir weder deine Zielsetzung kennen, noch was die einzelnen Variablen deines geposteten Quelltexts bezwecken sollen.

[helpge1]

Habe das schon gelöst trozdem danke für Hinweise und Tipps

[pluto]

Kannst du uns deine Lösung verraten?