Forum: Object-Pascal / Delphi-Language
Delphi
by Pascall,
8. Nov 2009
Hey
Also es ginge darum, die Buchstaben und Häufigkeiten aus Spalte 3 + 4 aus einer Textdatei einlesen zu können, damit man zum Beispiel auch mit anderen Sprachen vergleichen kann. Man könnte es auch so einfach machen, dass die Textdatei schon fertig sortiert ist und man nur noch eins zu eins übernehmen kann.
Falls es aber zu kompliziert ist und ich dabei nichts lerne, ist das auch okay.
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Pascall,
8. Nov 2009
Hey
Ist ja eigentlich ganz logisch, muss man nur darauf kommen....
Kurze Frage: Ist es sehr schwer zu programmieren, aus einer txt Datei etwas in ein StringGrid zu lesen?
Danke nochmal
Pascall
Forum: Object-Pascal / Delphi-Language
Delphi
by Pascall,
8. Nov 2009
Hey
Danke, jetzt klappt es, verstanden habe ich es aber noch nicht ganz.
Text2 := mOriginal.Text;
for i := 1 to Length( Text2 ) do // alle Positionen des Textes durchlaufen Ist logisch, man geht alle Zeichen des Text2 von 1 - letzten Buchstaben durch
for r := 0 to StringGrid1.RowCount - 1 do // mit allen Zeilen des StringGrids vergleichen r ist eine Variable, die wird 0...
Forum: Object-Pascal / Delphi-Language
Delphi
by Pascall,
8. Nov 2009
Hey
(Ist der Fehler immer noch drin mit Char + String, aber immerhin schon etwas verbessert)
Text2 := mOriginal.Text;
for r := 0 to 25 do
begin
if mOriginal.Text = StringGrid1.Cells then Text2 := StringGrid1.Cells;
end;
mOriginal.text := Text2;
Forum: Object-Pascal / Delphi-Language
Delphi
by Pascall,
8. Nov 2009
Hey
Das heißt so wie ich es gemacht habe, war es richtig? Aber leider kommt dann immer der Fehler: Inkompatible Typen: 'Char' und 'string'
Das ganze sieht im Moment so aus:
begin
mChiffriert.clear; // löschen, sicherheitshalber
mDeChiffriert.clear;
mOriginal.Text := uppercase(mOriginal.text);
L := length(mOriginal.text);
Forum: Object-Pascal / Delphi-Language
Delphi
by Pascall,
8. Nov 2009
Hey
Eine Kopie erstellt man zum Beispiel so oder? Text2 := mOriginal.Text; dem alten Text einfach einer neuen Variable zuweisen.
Mit dem, wie man Zeichen für Zeichen ersetzt bin ich überfragt.
for i := 1 to L do begin // 1 bis Länge des Textes
if mOriginal.text = stringgrid1.Cells then Text2 := stringgrid1.Cells; // SO wollte ich das ersetzen, hat aber leider nicht ganz geklappt
Forum: Object-Pascal / Delphi-Language
Delphi
by Pascall,
8. Nov 2009
Hey
Ich bin ein Delphi Neuling und würde mich freuen wenn ihr mir helfen könntet.
Folgendes Problem versuche ich zu beheben.
Ich habe einen Text in einem Memo Feld. In diesem Memo Feld will ich jedes Wort durchgehen und alle Buchstaben ersetzen.
Folgendes soll passieren:
Text wird durchgegangen und der erste Buchstabe in einer Tabelle (Stringgrid) gesucht. Zu diesem Buchstaben gibt es...